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PURCHASER UNDER A LICENSE FOR USE ON A SINGLE COMPUTER 
SYSTEM AND CAN BE COPIED (WITH INCLUSION OF DIGITALS 
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[1.01 ABSTRACT 

THIS DIAGNOSTIC WILL TEST 0 - 124K OF MOS OR CORE MEMORY 
ON ANY PDP-11 FAMILY COMPUTER. SOME TESTS ARE WORST CASE 
FOR MOS AND, SOME FOR CORE, BUT ALL TESTS ARE ALWAYS RUN. 
THE TESTS OCCUPIES LESS THAN 2K OF MEMORY SO IT CAN BE 
USED TO TEST A SYSTEM WITH ONLY OF MEMORY. IF ONLY AK 
EXISTS, HOWEVER, THE ABSOLUTE LOADER IS NOT SAVED. 

THIS PROGRAM CAN BE RUN UNDER XXDP, APT AND ACT MONITORS. 
ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER. SOFTWARE 
SWITCH REGISTER = LOCATION 176. 

C1.11 GETTING STARTED 

IF NO HARDWARE SWITCH REGISTER SET LOCATION 176 TO OBTAIN SWITCH 
OPTIONS. 

TO START: 



A. 
B. 
C. 
D. 
E. 



G. 



SET SWITCH REGISTER 00000 
START AT 200. 

THE MEMORY LIMITS WILL BE PRINTED. 

SEE SECTION 4.4 FOR REST OF PRINTOUTS EXPECTED. 

•T>ASS#01" WILL BE TYPED LAST. AND THE TEST WILL 

RESTART 

TO HALT "THE TEST, TYPE CONTROL-C. THIS WILL INSURE THE 
PROGRAM IS RELOCATED BACK TO LOWER MEMORY. 

BE PATIENT, THE CONTROL-f IS ONLY RECOGNIZED AT THE END 

OF THE CURRENT SUBTEST. 
IF AN UNEXPECTED HALT OCCURS SEE tSECTJON 6.0. IF AN 
ERROR ft IS TYPED SEE SECTION 6.2. 



BEFORE "DIGGING" INTO THE LISTING READ 
SECTION 9. 



! CAUTION! 

SWITCH SETTING SUMMARY (SEE SECTION 4.1 FOR DETAILS) 



BIT15(100000) 
BIT1 4 (040000) 
BIT1 3(020000) 
BIT12(010000) 
BI Til (004000) 
BIT1 0(002000) 
BIT09(001000) 
BIT08 (000400) 
B I T07( 000200) 
BIT06(000100) 
BIT05 (000040) 
BIT04 (000020) 
BJT03-8IT00 



HALT ON ERROR 

LOOP IN SUBTEST DEFINED BY BITS <3:0> 
INHIBIT ERROR PRINTOUTS 

ENABLE TESTING ABOVE 28K (WITH MEMORY MANAGEMENT) 

ENABLE PARITY TESTING 

HALT AFTER EACH SUBTEST 

INHIBIT PROGRAM RELOCATION 

1YPE FIRST FAILING BIT ERROR PER 4K. 

ENABLE LONG GALLOPING TEST 

INHIBIT MEMORY SIZING 

INHIBIT "PASSttXX" PRINTOUTS 

INHIBIT PRINTOUTS 

BEGINNING TEST NUMBER. 



CZKMA 



CZKMAF.P11 
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1 76 




1 77 
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[4 03 
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C4 1D 
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188 
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191 
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197 




198 




199 

1 7 7 








201 








203 




204 




205 




CwU 




207 




208 




209 




210 




211 




212 




21? 




21- 




2o 





E i 

MACY11 30A(1052) 05-MAR-79 09:02 PAGE 4 
05-MAR-79 09:02 

REQUIREMENTS 

EQUIPMENT 

STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 
ANDFR0M Ik TO i 24K OF MEMORY. PROGRAM WILL ALSO RUN ON THE 
PDT-11 AND ON 30K LSI SYSTEMS. 



STORAGE 

PROGRAM STORAGE - 0000 - 7744. PROGRAM EXPANDS FOR ERROR 
HISTORY AND TO SAVE ABSOLUTE LOADER OR XXDP CHAIN MONITOR. 
(SEE SECTION 9. FOR DETAILS) 



LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR PDP-Ml ABSOLUTE BINARY- FORMATTED TAPES. 

# 

STARTING PROCEDURE 
SWITCH SETTINGS 

SOFTWARE SWITCH REGISTER = LOCATION 176 
BIT15C109000) HALT ON ERROR 

LOOP ON TEST DEFINED «Y SWITCH REGISTER BITS <3:0> 
INHIBIT ERROR PRINTOUTS 

ENABLE MEMORY MANAGEMENT (TESTING A80VE 28K, 30K SYSTEM DOES NOT 
NEED K T SUPPORT) 



SECi 0004 



BIT! 4 (040000) 
BJT1 3(020000) 
BIT12(010000) 



BIT11 (004000) 
BIT10(002000) 
BIT09(001000) 

BI 108(000400) 

BI '07(000200) 



ENABLE PARITY MODULES. 
.'PAR" WILL BE TYPED 

HALT AFTER EACH SUBTEST 

.'PRESS CONTINUE TO DO NEXT SUBTEST 

INHIBIT PROGRAM' RELOCATION 

[IF SET LOCATIONS 430-7776 WILL NOT BE 

! TESTED. 

TYPE FIRST FAILING BIT IN EACH 4K BANK ONLY. 
.THE TOTAL ERROR COUNT (UP TO 377) WILL 
!BE SAVED IN THE ERROR HISTORY. 

FNABLE LONG GALLOPING TEST. 

.'•UP" WILL BE TYPED. rynr> nr 

' CAUTION! INCREASES TEST TIME BY FACTOR 0^ 25. 
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234 

235 
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237 
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241 
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247 
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[4.33 



BI 106(000100) 



INHIBIT MEMORY SIZING. 

' THE MEMORY LIMITS MUST BE SETUP IN THE FOLLOWING LOCATIONS: 
(VALUES TO TEST 0-8K ARE SHOWN) 
(LOWTWO=LOCATION 324) 



BIT05 (000040; 
BIT04 (000020) 

BIT03-BIT00 



LOWTWO: 0 
LOWADD: 0 



HIGHTWO: 0 

H I GHADD : 37776 

INHIBIT "PASS#XX' 
A. 



STORE BITS 17:16 OF LOW TEST ADDRESS 
STORE REST OF LOW TEST ADDRESS 
DO NOT ATTEMPT TO SET THE LOWER LIMIT 
AT OR ABOVE 160000 ON A 30K LSI SYSTEM. 
THE PROGRAM WILL ASSUME MEMORY MANAGEMENT 
MUST BE USED. 

STORE BITS 17:16 OF HIGH TEST ADDRESS 
STORE REST OF HIGH TEST ADDRESS 



PRINTOUTS 



INHIBIT ERROR HISTORY PRINTOUTS. THE 
ERROR HISTORv CAN STILL BE OBTAINED 
BY TYPING CONTROL-C. 
B. INHIBIT PRINTOUTS * T>AR'V CLP"/ TST1 3 BNK XX" '. 

NUMBER OF TEST (0-13) TO RUN FIRST. 

. NORMAl L Y USED WITH BIT14 (LOOP ON TEST) 



14.2:3 CONTROL-C OPTION 
CONTROL C C*CD 



AFTER COMPLETION OF THE CURRENT TEST. 
THE ERROR HISTORY (SEE SEC. 6.3) WILL BE 
TYPED. THE PROGRAM WILL HALT IN LOWER MEMORY. 
PRESSING CONTINUE WILL RESTART THE DIAGNOSTIC. 



STARTING ADDRESS" 200 
RESTART ADDRESS = 250 OR 200 



RESTART AT 200 CLEARS PASS COUNT ($PASS) AMD PRINTS ,, CZKMAF" TITLE. 



r/4.4] PROGRAM AND/OR OPERATOR ACTION 

1) LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER. 

2) SET OPTIONS (SEE SEC. 4.1) 

3) START THE PROGRAM AT 200 

4) THE FOLLOWING IS AN EXAMPLE WITH EXPLANATIONS 
OF THE PRINTOUTS EXPECTED. 



"XXXXX-YYYYY* 
' "PAR' ' 

"GlP" 



.•ADDRESSES OF TEST BOUNDARIES. 

;IF PARITY OPTION SELECTED 

;IF LONG GALLOPING OPTION SELECTED. 
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272 
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318 

319 
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324 

325 
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327 



4.5 



"TST13 BNK 00" 
"TST15 3NK 01" 
ETC... 

"REL" 



"TST13 BNK 00' 



'T>ASS#XX" 



ADDITIONAL PRINTOUTS 
"NO PAR" 

"NO KT" 



LONG GALLOP OPTION 



.•PRINTED AS TST11 IS ENTERED. 

.•ENTERING BANK 00 IN* TEST 13. 
•AND BANK 1 

•until all banks (up to 7) have been tested. 

.-the Diagnostic relocates to highest 
.-locations under test and runs tsto-tsth again. 

; testing bank 00 in test 13 (relocated state.) 

; note-only bank 00 is tested in the relocated state. 

; whfre "xx" is the pass no. 



; PRINTED If PARITY SELECTED BUT NOT AVAILABLE . 

.•PRINTED IF SWR BIT 12 IS SFT AND NO MEMORY 
.•MANAGEMENT AVAILABLE. 



NORMAL WORST CASE SR SETTING - 0000. FOR LONG GALLOP 
SR = 200. LONG GALLOP OPTION SHOULD ONLY BE USED IF AN 
MOS MEMORY PROBLEM IS SUSPECTED AND NO OTHER SUB'ESTS 
WILL FAIL. THE TEST TIME IS INCREASED 25 TIMES. 



C5.0J PROGRAM HALTS ( NORMAL + ERROR) 

THIS IS A LIST OF EXPECTED HALTS. IF THE TEST HALTS 

IN A LOCATION NOT IN THIS LIST AND IT IS LESS THAN 776, IT 

MAY BE DUE TO A DEVICE INTERRUPTING. 

NOTE THE HALT AT END OF SUBTEST AND HALT ON ERROR HALT LOCATIONS 
MAY BE RELOCATED. THE ACTUAL LOCATIONS THEY ARE IN CAN BE FOUND 
BY SUBTRACTING 500 FROM THE HALT PC AND ADDING THIS DIFFERENCE TO THE 
CONTENTS OF SAVR6 fLOC 350J. 



PC 



112 



17U 



REASON 



TRAP TO LOC. 4 



POWER FAIL 



HALT AT END OF 
TEST SWITCH SET. 



RECOVERY 



EXAMINE R6. IT CONTAINS 
THE POINTER TO THE Pc 
WHERE THE TRAP OCCURRED. 

POWER UP WILL RECOVER 
IF IN CORE MEMORY. IF 
NOT CORE OPERATION IS UNDEFINED. 

PRESS CONTINUE TO GO TO 
NEXT SUBTEST. 
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355 

336 

337 

338 

339 

340 

341 

342 

343 ' 

344 

345 

346 

347 

348 

349 

350 

351 
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353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 

371 
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373 

374 

375 

376 

377 

378 
379 
380 
381 
382 
383 



[6.0] 
[6.13 



HALT ON ERROR 
SWITCH SET. 

CONTROL-C TYPED 
OR FATAL ERROR 
OCCURRED 



H 1 



PRESS CONTINUE. 



s:o vac? 



PRESS CONTINUE TO RE- 
START TEST. 



6156 
6240 

ERRORS 

ERROR MESSAGE FORMAT 

THE ERROR PRINTOUT CONSISTS OF 6 OCTAL WORDS IN THE FOLlOWING 
FORMAT: 



"LOCATION GOOD BAD PC ERROR 



PASFLG' 



"ADR ERP" WILL BE PRINTED PRIOR IF AN ADDRESSING ERROR IS SUSPECTED. 
'PAR ERR" WILL BE PRINTED PRIOR IF A PARITY ERROR TRAP OCCURRED 
.CAUTION! IF PARITY ERROR THE GOOD DATA PRINTOUT IS THE 
PARITY MODULE UN I BUS ADDRESS THAT FAILED. 



WHERE : 

LOCATION 

GOOD = 

BAD = 
PC 

ERROR = 

PASFLG = 



FAILING MEMORY LOCATION 
GOOD DATA [DATA THAT WAS EXPECTED] 
BAD DATA [DATA THAT WAS FOUND] 
PROGRAM COUNTER AT ERROR CALL. 

FAILING ERROR NO. (SEE SEC 6.2 - ERROR DICTIONARY) 
CONTENTS OF LOCATION PASFLG. THIS MAY NOT BE RELEVANT, 
(SEE SEC. 6.2-ERROR DICTIONARY) 



I THE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT. 
'NO KT" WILL BE TYPED IF TESTING ABOVE 28K SELECTED AND NO MEMORY 
.MANAGEMENT IS FOUND. (30K SYSTEM DOES NOT NEED KT SUPPORT) 



.'MO 
.'AND 



PAR" WILL 
NO PARITY 



BE TYPED IF PARITY 
MODULES WERE FOUND 



OPTION SELECTED 



(FATAL ERRORS) 



"ERR #XXXXXX" WILL BE TYPED WHERE "XXXXXX" IS 

THE ERROR NUMBER. THE DIAGNOSTIC WILL USUALLY HALT ON THIS TYPE 
OF ERROR. SEE SEC. 6.2 -ERROR DICTIONARY - FOR DESCRIPTIONS 
OF THE ERROR. 



(APT MODE ERRORS) 

ALL ERRORS ARE TREATED AS FATAL UNDER APT. WHEN AN 
ERROR OCCURS UNDER APT A "1" IS STORED IN LOCATION 
SMSGTY AND THE PROGRAM HALTS AT FATHLT. 
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385 




386 




387 




388 




389 




390 




391 


C6.2] 


392 




393 




394 




395 




396 




397 




398 




399 




400 




401 


.ENDR 


402 




403 




404 


;ERR * 0 


405 


406 




407 


;ERR * 1 


408 


409 




410 




411 




412 


;ERR « 2 


/•IT 

413 


414 




tic 

415 




416 




417 


;ERR * 3 


418 


419 




420 




421 




422 




423 


;ERR tf 4 


42s 


425 




426 




427 




428 




429 


;ERR 5 


430 


431 




432 




433 




434 




435 




436 


;ERR * 6 


437 


438 




439 





SEG 0008 



f FATAL CONTAINS THE ERROR NO. IN THE LOW BYTE AND 
THE FAILING SANK NO- UNDER TEST IN THE HIGH BYTE. 



ERROR DICTIONARY * 

THIS IS A LIST OF ERROR NUMBERS PRINTED AND POSSIBLE 
CAUSES FOR THE ERROR. 

THE ROU T INE NAME WHERE THE ERROR CALL ORIGINATED IS GIVEN IN 
BRACKETS. 

NOTE- 'SAKPAT" REFERS TO T HE BACKGROUND PATTERN WRITTEN INTO MEMORY 
FOR VARIOUS TESTS. IF PARITY SELECTED IT HAS A VALUE 376 .ELSE-377 
"SWAPPED BAKPAT" = 77000 IF PARITY SELECTED. ELSE 77400 



.•[BUSERJ BUS ERROR TRAP TO LOC. 4 OCCURRED 

THIS ERROR IS NOT PRINTED AND IS FOR ,, APT" USE. 

[TSTTRPJFATAL DATA ERROR 

LOCATIONS 0000-430 FAILED VS ♦ O'S fEST. 

RO = GOOD DATA 

R1 = ADDRESS OF FAILING LOCATION. 

CAPTSIZJ APT FATAL ERROR 
APT MEMORY TABLES NOT SETUP CORRECTLY. 
CHECK LOCATIONS SMAMS1 C430J TO SMADR4C446J 
. FOR CORRECT MEMORY SIZE DATA. 

LTSTSIZJ OPERATOR FATAL ERROR 
SELECTED MEMORY SIZE GREATER THAN 28K 
(30K SYSTEM DOES NOT NEED KT SUPPORT), BUT 
SR BIT1 2 (10000) NOT SET. 
SET BIT12 AND RESTART AT 200. 

CTSTSIZJ OPERATOR FATAL ERROR 

LOWEST SELECTED TEST LIMIT IS HIGHER THAN 

HIGHEST TEST LIMIT. SET LOCATIONS ' T.OWTWO" T322J 

TO ' WIGHADD" C330J CORRECTLY AND RESTART 

AT 200. 

CTSTO: TEST SEQUENCE ERROR 

TSTO HAS BEEN ENTERED OUT OF SEQUENCE 

TESTN SHOULD = 00 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

IF POSSIBLE SELECT ANOTHER 4K BANK 

BANK 0 AND RERUN THE TEST ON THE FAILING MEMORY. 

L"TST0J DUAL ADDRESSING ERROR 
FOR THIS ERROR THE GOOD DATA PRINTED IS AN 
ADDRESS. THIS IS THE ADDRESS SELECTED WHEN 
THE SAME DATA WAS WRITTEN INTO THE FAILING 



# 
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J 1 



SEO 0000 



;ERR # 7 



440 
441 
442 
443 
444 
445 
446 

4^.7 ;ERR # 10 
448 
449 
450 
451 
452 
453 
454 
455 
456 
45? 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 



;£RR 0 11 



;ERR » 12 



;ERR 0 13 



;FRR 0 14 



;ERR 0 15 



;ERR 0 16 



;ERR 0 17 



;ERR 0 20 



;ERR 0 21 



;ERR 0 22 



;ERR 0 23 



.-LOCATION- CHECK BANK SELECT CIRCUITRY 

;[TS70J ADDRESS AND DATA ERROR 
;IDENTICAl TO PREVIOUS ERROR EXCEPT T HE DATA 
; WRITTEN INTO THE FAILING LOCATION WAS IN 
; ERROR ALSO. 

;CTST03 DATA ERROR 

;IF BAD DATA = 0000 COULD BE AN ADDRESSING 

; ERROR , ELSE COMPARE GOOD AND BAD DATA FOR FAILING BITS. 

;CTSTOJ ADDRESSING ERROR 

;THE FAILING ADDRESS RESPONDED BUT IS NON- 
EXISTENT. MAY BE A DUAL ADDRESSING PR09LEM. 

;CTST13 TEST SEQUENCE ERROR 
;$TESTN [4043 SHOULD = 01 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

; CTST13 DATA ERROR 

; COMPARE GOOD AND BAD PRINTED DATA, FAILING 
; DATA BITS MAY SHORTED OR SWAPPED. 

; CTST2J TEST SEUUENCE ERROR 
;$TESTN C4043 SHOULD = 02 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;CTST2J ADDRESS OR DATA ERROR 

;IF "ADR ERR" NOT PRINTED THEN THE BYTE SELECT 

.•CIRCUITRY PROBABL Y FAILED. 

; CTST3J TEST SEQUENCE ERROR 
;$TESTN C404J SHOULD = 03 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;L"TST3J DUAL ADDRESSING ERROR 

; DUAL ADDRESSING PROBLEM FOR BITS THAT DIFFER 

;IN GOOD AND BAD DATA PRINTOUT. 

; CTST33 DUAL ADDRESSING ERROR 

;FOR T HIS ERROR THE DATA PRINTED IS AN ADDRESS. 
.-THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE 
.-SAME DATA WAS WRITTEN INTO THE FAILING LOCATION. 

;TTST3J DUAL ADDRESSING ERROR 

.-SAME AS ERROR #20 EXCEPT DIFFERENT DATA 

.•(SWAPPED BAKPAT) WAS WRITTEN. 

.-CTST4J TEST SEQUENCE ERROR 
;$TESTN C404J SHOULD - C4. 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;[TST4J DUAL ADDRESSING ERROR 

;IF PASFLG - 0 THEN THE FAILING LOCATION 

;AND FAILING DATA APE DUAL ADDRESSES. 
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496 


;ERR # 24 


49 7 


498 




499 




C AA 

500 


;ERR * 25 


501 




502 


;ERR * 26 


CAT 

503 


504 




505 




506 




C A"7 

507 




C AO 

508 




509 




510 


;tRR # 


51 1 


O 

512 




513 




C1 / 

0l*» 


;fcRR SU 


CI c 

jl 0 


516 




C 1 7 

ol f 




CIO 


. C DD * 71 

;t"R n 51 


51V 


con 




C01 




CTT 




C07 




CO/ 




c*ic 
jc; 




-><£o 




C17 




COQ 




coo 


. COD * 70 

;fcHR 3c 


o VJ 




C 71 

o51 




C70 




C77 


■ CDD M 77 

;tSR 33 


C7/ 




C7C 




C7A 

o5o 




C77 

JJf 




C70 

0 5fl 




C7Q 




c./ n 




C/ 1 




C/ 0 
0H<? 


■CDD ^ 7/ 

;tKK tf jh 


C./ 7 
0*O 


ohm 




0*0 




546 


;ERR # 35 


547 


548 




549 


;FRR » 36 


550 


551 





CTST53 TEST SEQUENCE ERROR 
$TESTN C4043 SHOULD 05 
THE DIAGNOSTIC HAS BEEN CORRUPTED. 



[TST53 DATA ERROR 
DATA WRITE OR READ ERROR. 



[TST53 MARCHING 1'S 
IF PASFLG=0 FAILED 
MAX TO 
FAILED 
MIN TO 
FAILED 
MAX TO 



ERROR 
0'S 



IN 



IF PASFLG=1 
IF PASFLG=3 



AND 0'S DATA 
MARCHING 1'S ^ 
MIN DIRECTION. 
MARCHING TS + 0*S IN 
MAX DIRECTION 
MARCHING 0'S ♦ 1 'S IN 
MIN DIRECTION. 



[TST53 MARCHING 1'S AND 0'S DATA ERROR 
IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS 
CHECKED IMMEDIATELY AFTER BEING WRITTEN. 

CTST63 TEST SEQUENCE ERROR 

STESTN SHOULD = 06 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

[TST63 VOLATILITY/REFRESH TEST ERROR 



IF PASFLG=0 
IF PASFLG=1 



IF PASFLG=2 
IF PASFLG=3 



BAKPAT WRITE OR READ ERROR. 
THE FAILING LOCATION CHANGED WHILE 
ANOTHER LOCATIONS WAS WRITTEN FOR 
2 MS. THE OTHER LOCATION IS SAVFD 
IN SAVLOC C3523 

SWAPPED BAKPAT (77400 OR 77000) 
WRITE OR READ ERROR. 
SAME AS IF PASFLG=2 EXCEPT 
THE DATA IS SWAPPED B/XPAT. 



[TST73 TEST SEQUENCE ERROR 

$TESTN SHOULD = 07 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

[TST7J SHIFTING DIAGONAL DATA ERROR 

IF PASFLG=0 BAKPAT WRITE OR READ ERROR. 

IF PASFLG=1 BAKPAT READ CHECK ERROR 

IF PASFLG GREATER THAN 1 BUT EVEN VALUE THEN: 

THE FAILING LOCATION COULD NOT BE WRITTEN INTO. 
IF PASFLG GREATER THAN 1 BUT ODD VALUE THEN: 

THE FAILING LOCATION WAS WRITTEN CORRECTLY 

BUT LOST THE DATA. 

CTST10J TEST SEQUENCE ERROR 
STESTN SHOULD 10 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

; CTST10J BAKPAT DATA ERROR 

.-BAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION. 

CTST10J READ RECOVERY DATA ERROR 

THIS ERROR CAN BE REPORTED BY TST10 AND TST11. 
(THEY SHARt CODE). SEE STESTN [4043 FOR WHICH TEST FAILED. 
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L 1 



SEO 001 1 



552 
553 
554 

555 ;ERR 
556 
557 
558 

559 ;ERR 
560 
561 
562 

563 ;ERR 
564 
565 
566 

567 ;ERR 

568 

569 

570 

571 

572 

573 

574 

575 ;ERR 



» 37 



* 40 



* 41 



» 42 



ft 43 



576 
577 
578 

579 ;ERR 0 44 

580 

581 

532 

583 ;ERR * 45 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 

601 ;ERR 
602 
603 
604 
605 
606 

607 ;ERR 



ERR » 46 



ERR » 47 



» 50 



* 51 



;F0R BOTH TESTS COMPARE THE GOOD AND BAD DATA AT THE FARING 
.•LOCATION TO SEE WHICH BJTS FAILED. 

;CTST103 READ RECOVERY DATA ERROR 

IDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS 
;USED AS WRITE AND READ DATA. 

CTST113 TEST SEQUENCE ERROR 
;$TESTN SHOULD = 11 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

;CTST12J TEST SEQUENCE ERROR 
;$TESTN SHOULD = 12 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

: CTST12J WORST CASE CORE TEST DATA ERROR 



IF PASFLG-1 
IF PASFLG=2 



;IF PASFLG=3 



COMPARE GOOD AND BAD DATA FOR FAILING BITS. 
THE FAILING LOCATION WAS WRITTEN AND READ 
WITh GOOD DATA .BUT FAILED READ CHECK 
READING IN THE MIN. TO MAX DIRECTION. 
SAME CONDITIONS AS PASFLG=2 EXCEPT FAILED 

DOING THE READ CHECK FROM MAX TO MIN DIRECTION. 



LTST12J WORST CASE CORE TEST DATA ERROR 

IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN 
; AND READ IS COMPLEMENTED. 

•CTST13D TEST SEQUENCE ERROR 
;$TESTN SHOULD = 13 

THE DIAGNOSTIC HAS BEEN CORRUPTED. 

[TST13J WRITE RECOVERY TEST DATA ERROR 

IF PASFLG=0 COMPARE GOOD AND BAD DATA FOR FAILING BITS. 
IF PASFLG=77400 DATA ERROR FOUND WHILE DOING A SECOND READ CHECK. 
IF PASFLG=77402 DATA ERROR FOUND IN FAILING LOCATION AFTER 
SMALL TEST PROGRAM RUN IN FAILING BANK. 

CTST13J WRITE RECOVERY TEST DATA ERROR 

DATA ERROR FOUND JUST BEFORE THE SMALL TEST 
;WAS TO BE RUN IN THE FAILING BANK. TO AVOID 'BLOWING" UP 
,-WHEN THE SMALL TEST IS RUN TST13 IS ABORTED. 

CTST133 WRITE RECOVERY TEST DATA ERROR 

IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN 
•AND READ IS DIFFERENT. (1 77667) . 

: 177667 IS THE COMPLEMENT Of "JMP (RO)" (110) WHICH IS 
; THE ESCAPE FROM THE SMALL TEST PROGRAM RUN IN THE BANK 
; UNDER TEST. 

: [PARERRJ PARITY TRAP ERROR 

PARITY TRAP TO 114 OCCURRED. 
;FOR THIS ERROR PRINTOUT THE "GOOD DATA" IS ACTUALLY 
: THE FAILING PARITY MODULE UNI8US ADDRESS. 

SAVLOC C352J CONTAINS THE PC WHERE THE TRAP OCCURRtD. 

[PARITYJ PARITY TRAP FATAL ERROR 
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M 1 



608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622' 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 

660 

661 

662 

663 



;ERR * 52 



;ERR # 53 



.REPT 0 



A PARITY TRAP TO 114 OCCURRED. BUT NO PARITY MODULES COULD BE FOUND 
WITH AN ERROR BIT (BIT15) SET. 

CNOMMD OPERATOR FATAL ERROR 

TESTING ABOVE 28* WAS SELECTED. BUT NO MEMORY MANAGEMENT 
OPTION WAS FOUND. (30K SYSTEM DOES NOT NEED KT) 

RESET SWITCH OPTIONS AND RESTART AT 200. 

CPARITYJ OPERATOR FATAL ERROR 

PARITY TESTING WAS SELECTED 8U T NO PARITY MODULES 
WERE FOUND. 

RESET SWITCH OPTIONS AND START AT 200. 



C6.3J ERROR HISTORY 



LOCATIONS IN MEMORY ARE SET ASIDE TO COLLECT A HISTORY 
OF THE FAILING BITS IN A PARTICULAR MEMORY BANK. THIS 
DATA IS COLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH 
SETTINGS. 

NORMALLY THE DATA IS OUTPUT AT THE END OF TESTING. BUT 
IF CONTROL-C IS TYPED IT IS OUTPUT AT THE END OF THE 
CURRENT TEST. 

THE ERROR HISTORY IS INTENDED TO HIGHLIGHT IF THE ERRORS 
ARE DUE TO 1 BIT FAILING OR ONLY ADDRESS ERRORS. 



ERROR HISTORY FORMAT: 



ERROR BANK COUNT 



WHERE : 
ERROR 



BANK 

COUNT = 
C6.41 ERROR RECOVERY 



BIT THAT FAILED CNUMBER OF THE FAILING BIT IN DECIMAL I.E. 

0-15 WILL BE TYPED OUT OR THE WORDS "ADR ERR" OR "PfiR ERR' 

BE TYPED OUT IF ADDRESS ERROR OR PARITY ERROR WAS SEEN 

IN THE SPECIFIC BANK OF MEMORY 

4K MEMORY BANK IN WHICH THIS FAILURE WAS SEEN 

A 0 FOR 0 TO 4K, A 1 FOR 4 TO 8K AND SO ON 

NUMBER OF TIMES THIS MEMORY BANK FAILED. 

(377 IS MAXIMUM FAILURE COUNT RECORDED.) 



WILL 



IF THE PROGRAM IS HALTED AFTER REPORTING AN ERROR IT CAN EITHER 
BE CONTINUED OR RESTARTED AT 200 OR 250 (SEE SEC 4.2). HOWEVER FOR 
CPU'S THAT DESTROY CONTENTS OF REGISTERS AFTER COMING TO A HALT 
THE PROGRAM SHOULD ONLY BE RESTARTED. 
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N 1 



SEQ 0013 



664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 



C7.03 RESTRICTIONS 



MEMORY UNDER TEST SHOULD BE CONTIGUOUS. FOR SYSTEMS HAVING NON- 
CONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEFINED BY THE 
OPERATOR. (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT CAN BE 
BOTH READ AND WRITTEN IN CTJNSECUTIVE LOCATIONS.) 



C8.0D MISCELLANEOUS 



C8.1D ADDRESS/BANK RANGES IN OCTAL AND DECIMAL 



THIS REFERENCE TABLE CROSS REFERENCES THE MEMORY BANK NO.S, 
THE RANGE AND THE PAR USED WHEN MEMORY MANAGEMENT IS ENABLED. 
IT IS ALSO USEFUL TO SHOW STARTING ADDRESSES IN A PAR- 
TICULAR 4K BANK. 



NK NO 


DFCIMAL 


OCTAL 


CPAGE ADDRESS REGISTER} 




RANGE 


RANGE 


USED/CONTENT 




o 


0 - 4K 


000000-01 7776 


0 


0000 


772340 


1 


4K - 8K 


020000-037776 


NOT 


USED 




2 


8K-12K 


040000-057776 


NOT 


USED 




3 


12K-16K 


060000-077776 


NOT 


USED 




4 


16K-20K 


100000-117776 


NOT 


USED 




5 


20K-24K 


120000-137776 


NOT 


USED 




6 


24K-28K 


140000-157776 


NOT 


USED 




7 


28K-32K 


160000-177776 


NOT USED ON 30K 


(LSI-11 








1 


1600 


772342 


8 


32K-36K 


200000-217776 


2 


2000 


772344 


9 


36K-40K 


220000-237776 


3 


2200 


772346 


10 


40K-44K 


240000-257776 


4 


2400 


772350 


11 


44K-48K 


260000-277776 


5 


2600 


772352 


12 


48K-52K 


300000-317776 


6 


3000 


772354 


13 


52K-56K 


320000-337776 


1 


3200 




14 


56K-60K 


340000-357776 


2 


3400 




15 


60K-64K 


360000-377776 


3 


3600 




16 


64K-68K 


400000-417776 


4 


4000 




17 


68K-72K 


420000-437776 


5 


4200 




18 


72K-76K 


440000-457776 


6 


4400 




19 


76K-80K 


460000-477776 


1 


4600 




20 


80K-84K 


500000-517776 


2 


5000 




21 


84K-88K 


520000-537776 


3 


5200 




22 


88K-92K 


540000-557776 


4 


5400 




23 


92K-96K 


560000-577776 


5 


5600 




24 


96K-100K 


600000-617776 


6 


6000 




25 


100K-104K 


620000-637776 


1 


6200 
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SEO OOU 



720 

721 

722 

723 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

737 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

769 

770 

771 

772 

773 

774 

?75 



T8.23 



T8.23 



26 
27 
28 

29 
30 
31 



104K-108K 


640000-657776 


2 


6400 


108K- 


•112K 


660000-677776 


3 


6600 


112K-116K 


700000-717776 


4 


7000 


116K- 


•120* 


720000-737776 


c 
J 


7200 


120K- 


■724K 


740000-757776 


6 


7400 


124K- 


128K 


760000-777776 


7 


7600 



772354 



NOTES: 

1. THE PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOWN IN A TEST THAT SELF SIZES. 
If THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND 
IF THE BANK IS ABOVE 28K PAR NO. 1 WILL BE SET TO THE 
BEGINNING PAGE. FOR EXAMPLE IF THE TESTING WAS TO 
BEGIN WITH BANK 8 PAR NO. 1 WOULD EQUAL 2000, PAR ? 
WOULD EQUAL 2200 ETC. 



EXECUTION TIME 

HERE ARE SOME TYPICAL EXECUTION TIMES. 



LSI-IT AND 4K:- 100 SECS. 
LSI-11 AND 8K:= 5 MINUTES. 



PASS COUNT AND TEST NO. LOCATIONS 

SPASS C406D = PASS COUNT - CLEARED BY START AT 200. 

STESTN [4042 = CURRENT TEST NO. AND RELOCATION, PARITY FLAGS. 
WHERE : 
LOW BYTE - TEST NO. 
IF BIT15 - 1 TEST IS RELOCATED 
IF BIT13 = 1 PARITY UNDER TEST. 



C8.43 STACK POINTER 



THE STACK STARTS AT 500 WHEN THE PROGRAM IS NOT RELOCATED. 
SAVR6C350J CONTAINS THE STACK STARTING VALUE WHEN THE DIAGNOSTIC 
IS RELOCATED. 

SAVR6 ALSO CONTAINS THE STARTING ADDRESS OF THE PROGRAM WHEN 
IT IS RELOCATED. 



C8.5] POWER FAIL 



THE DIAGNOSTIC CAN BE POWER FAILED WITH NO ERRORS. TO USE, 
START THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME. 
THE PROGRAM SHOULD TYPE 'V AND CONTINUE TO RUN FROM TEST 0 
IN THE SAME STATE CLE. STATE OF RELOCATION} AS IT WAS BEFORE 
THE POWER WAS INTERRUPTED. HOWEVER IF THE DIAGNOSTIC WAS IN 
A MEMORY THAT CAN NOT HOLD DATA WITH THE POWER DOWN THEN THE 
PROGRAM WILL NOT RECOVER FROM POWER FAIL AND ON POWER-UP 
OPERATION IS UNDEFINED. 
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SEO 0015 



776 

777 

778 

779 

780 

781 

782 

783 

784 

785 

786 

787 

788 

789 

790 

791 

792 

793 

794 

795 

796 

797 

798 

799 

800 

801 

802 

803 

804 

805 

806 

807 

808 

809 

810 

811 

812 

813 

814 

815 

816 

817 

818 

819 

820 

821 

822 

823 

824 

825 

826 

827 

828 

829 

830 

83 1 



[9.03 PROGRAM DESCRIPTION 

[9.1] NARRATIVE fLOW CHART 

THE TEST IS LOADED INTO LOCATIONS 0000 - 7744 BUT 
EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST. 
SEE STEP 6. BELOW FOR A DETAILED EXPLANATION. 

THE FOLLOWING NARRATIVE FLOW CHART DESCRIBES MAJOR 
PROGRAM OPERATION. FOR THE PERSON WHO NEEDS DETAIL THE 
TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETS. 

FOR THIS DISCUSSION SWITCH SETTINGS ARE IGNORED AND EVERYTHING IS 
ASSUMED ENABLED. 

1. [START J PRINT "CZKMAF" TITLE 

2. [TSTRPJ SAVE DATA FROM LOCATIONS 0-376 
INTO 7744-10314. 

3. [TSTRPJ TEST LOCATIONS 0-376 BY WRITING AND 
READING 1'S AND O'S. NOTE THIS IS THE ONLY 
EXPLICIT TESTING OF THESE LOCATIONS. 

4. [SLFSIZJ SIZE MEMORY BY WRITING INTO SUCCEEDING 
MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO 4 OCCURS. 
OR 30K BOUNDARY REACHED. 

ENABLE MEMORY MANAGEMENT AND SIZE MEMORY ABOVE 
28K 

NOTE: IF UNDER XXDP CHAIN MODE IN 30K SYSTEM. SYSTEM IS SIZED 
TO 28K. 

5. [TYPSIZH TYPE MEMORY TEST LIMITS. 

6. [SETSTKJ SPACE IS SAVED AT THE END OF THE TEST 

FOR AN ERROR HISTORY. FOR EACH 4K BANK 18 BYTES ARE SAVED 
IN THE FOLLOWIN' FORMAT: 



.ADR ERR 

.'BIT14 

!BIT12 

.BIT10 

!BIT08 

!BIT06 

.BIT04 

.'8IT02 

.81 TOO 



!PAR ERR 

!BIT15 

!BIT13 

JBIT11 

.'BIT09 

!BIT07 

.'BIT05 

IBIT03 

•BITOT 



IF GREATER THAN 4K UNDER TEST THE ABSOLUTE LOADER 
(300 ADDRESSES) IS APPENDED. IF GREATER THAN 4K 
AND UNDER XXDP CHAIN MODE 5376 (OCTAL) ADDRESSES 
ARE APPENDED TO THE TEST. THIS SAVES THE XXDP 
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832 MONITOR, AND ALLOWS THE LOCATIONS OCCUPIED BY XXDP 

833 TO BE TESTED. 
834 

835 7. CCLRMEM} CALL 'PARITY" ROUTINE AND IF SELECTED, 

826 ENABLE ALL PARITY MODULES- 'PARMAP" CLOC. 3523 

837 CONTAINS A MAP OF PARITY MODULES FOUND. IF 

838 MODULE 172336 BIT 15 IS SET. IF #172334 FOUND BIT 14 

839 IS SET ETC.. 
840 

841 8. CCLRMEM3 CLEAR MEMORY CURRENTLY UNDER TEST 
842 

843 9. CCONT] DISPATCH TO TSTO 
844 

845 10. [TSTOJ EXECUTE TES1 0. SEE SECTION 10 FOR TEST 

846 DESCRIPTIONS. 
847 

848 11. CTSTSCPJ COMES HERE AFTER EACH TEST AND IF 

849 CNTRL-C TYPED THEN GO TO ERROR HISTORY PRINTOUT. 

850 IF SR=2000 THEN HALT 

851 IF SR=40000 THEN LOOP ON TEST DEFINED BY <3:0> 

852 ELSE CONTINUE TO NEXT TEST. 
853 

854 12. CTST1-TST123 EXECUTE TST1-TST12 EACH TIME 

855 GOING TO STEP 9. 
856 

85/ 13. CTST133 TEST 13 IS DIFFERENT FROM TESTS 0-12. 

858 BECAUSE IT IS A SMALL PROGRAM ACTUALLY RUNNING 

859 IN THE MEMORY UNDER TEST. BEFORE THIS SMALL 

860 PROGRAM IS STARTED 'TST13 BNK XX" IS TYPED. 1 

861 THIS IS DONE IN CASE THE PROGRAM FAILS . THE 

862 USER CAN THEN AT LEAST TELL WHICH BANK OF MEMORY 

863 FAILED. 
864 

865 14. [REIOCJ THE PROGRAM RELOCATES TO HIGH MEMORY 

866 TO TEST THE LOCATIONS IT OCCUPIES. (430-ENDPRG) . 

867 WHERE "ENDPRG" IS THE CONTENTS OF ENDSTKC3063 . 

868 I.E THE LAST PROGRAM ADDRESS. NOTE "REL" IS 

869 PRINTED JUST PRIOR TO THE ACTUAL RELOCATION. 
870 

871 15. TESTS 0-13 ARE RUN AS DESCRIBED ABOVE EXCEPT 

872 ONLY BANK 0 LOCATIONS 430-ENDPRG ARE TESTED. 
873 

874 16. CRELOERJ RELOCATE THE PROGRAM BACK TO LOWER 

875 MEMORY. 
876 

877 17. L"LOWERJ IF CONTROL-C TYPED GO PRINT ERROR 

878 HISTORY. 
879 

880 18.CTSTMMJ IF MEMORY MANAGEMENT SELEC T ED AND AVAILABLE. 

881 RUN TESTS 0-13 ON THE FIRST 24K SLICE ABOVE 28K. 
882 

883 19. [CONTMMJ CALL "UPMM" TO UPDATE MEMORY MANAGEMENT 

884 PAR REGISTERS TO POINT TO THE NEXT ?4K SLICE OF 
835 UPPER MEMORY. 

886 

887 20. TMAXADRj REPEAT STEPS 18 ♦ 19 UNTIL ALL 
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888 MEMORY ABOVE 28K IS TESTED. 

889 

890 21. CENDPASJ PRINT ERROR HISTORY OF FAILING BITS 
891 

892 22. [SEOPJ DISABLE PARITY MODULES. 

893 PRINT 'T>ASS*XX" 
894 
895 
896 

897 C9.23 TEST TITLES 
898 

899 SEE THE TEST HEADINGS IN THE LISTING FOR DETAILS ON EACH TEST. 
900 

901 TEST 0: TEST FOR PROPER BANK SELECTION 

902 TEST 1: CHECK DATI/DATO LINES 

903 TEST 2: TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

904 TEST 3: DUAL ADDRESS TEST A 

905 TEST 4: DUAL ADDRESS TEST B 

906 TEST 5: MARCHING VS AND O'S 

907 TEST 6: CELLS' VOLATILITY TEST 

908 TEST 7: SHIFTING DIAGONAL 

909 TEST 10: READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 

910 TEST 11: HEAD RECOVERY LONG GALlOPING/FAST GALLOPING TEST 

911 TEST 12: WORST CASE TESTING FOR CORE MEMORY 

912 TEST 13: WRITE RECOVERY TEST 
913 
9H 

915 [10.0] RXDP & ACT11 & APT OPFRATION 
916 

917 RXDP CHAIN MODE 

91 8 

919 * 

920 OPERATION IS IDENTICAL TO STAND ALONE EXCEPT: 
921 

922 1. NO "CZKMAF" TITLE IS PRINTED. 

923 2. NO TEST 13 PRINTOUTS SUCH AS 'TST13 BNK 00". 

924 3. THE PROGRAM ALWAYS HALTS ON ERROR. 

925 4. AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO 

926 THE RXDP CHAIN MONITOR VIA LOCATION 42. 

927 5. IF 30K SYSTEM ONLY 28K WILL BE TESTED IN XXD" CHAIN MODE 
928 

929 ACT 1 1 

930 

931 

932 0°E RATION IS IDENTICAL TO STAND ALONE EXCEPT: 

933 

934 1. NO PRINTOUTS EXCEPT ERROR PRINTOUTS. 

935 2. THE PROGRAM ALWAYS HALTS ON ERROR. 

936 3. AT THE END OF TEST (SENDAD) CONTROL IS RETURNED TO 

937 THE ACT11 MONITOR VIA LOCATION 42. 
938 

939 APT 
940 
941 

942 OPFRATION IS SIMILAR TO STAND ALONE EXCEPT: 

943 
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944 1. THE SOFTWARE SWITCH REGISTER BECOMES LOCATION 422 (SSWREG). 

945 2. AUTO SIZING CAN BE INHIBITED BY SETTING BIT 7 OF BYTE 

946 LOCATION 421 (SENVM). 

947 3. ALL PRINTOUTS CAN BE INHIBITED BY SETTING BIT 5 OF 

948 BYTE LOCATION 421 (SENVM). 

949 4. ALL ERRORS CAUSE LOCATION 400 (SMSGTY) TO B c SET 

950 0001 AND THE PROGRAM HALTS AT LOCATION 6240 (FATHLT). 

951 LOCATION 402 (SFATAD CONTAINS THE ERROR NO. IN THE 

952 LOW BYTE AND THE FAILING MEMORY BANK NO. IN THE HIGH 

953 BYTE. 

954 NOTE: THE ENVIRONMENTAL MODE BVTE SHOUl D BE SET TO 240 WHILE THE SOFTWARE 

955 ENVIRONMENTAL BYTE SHOULD BE SET TO 001. 



958 

959 .ENDR 
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S£Q 0019 


960 


FNABl 


ABS 








961 


NL 1ST 


MD,MC,CND 








962 




.LIST ME.BIN.SEO.l_OC 






96? 






.TITLE CZKMA 






964 






••COPYRIGHT (C) MARCH 1979 






965 






••DIGITAL EQUIPMENT CORP. 






966 






•MAYNARD. MASS. 01754 






967 






• » 






968 






•PROGRAM BY DIAGNOSTIC ENGINEERING 






969 






■ * 






970 






•THIS PROGRAM WAS ASSEMBLED USING THE PPP-1 1 MAINDEC SYSMAC 






971 






•PACKAGE (MAINDEC-1 1-DZQAC-C3) . JAN 19. 1977. 






Q72 






• 






973 




160000 $SWR=160000 ; ; HAL T ON ERROR. LOOP ON TEST. INHIBIT ERROR 


TYPOUT 




974 












975 












976 












977 












978 






;;TRAP CATCHER OF .*2 AND HALT FOR 0-776 LOCATIONS 






979 












980 












981 












982 












985 




000240 SCOPE NOP 






984 












985 




000042 








986 


000042 


000000 


.WORD 0 ;F0R ACT/XXDP 






987 












988 






SBTTL ACT11 HOOKS 






989 












990 






••♦A*-*********************************************************** 




99 1 




;H00KS REQUIRED BY ACT11 






992 




000044 


$SVPC=. ; SAVE PC 






993 




000046 


.=46 






994 


000046 


000156 


SENDAD ;;1)SET LCC.46 TO ADDRESS 0^ 


SENDAD IN .$EOP 




995 




000052 


.-52 






996 


000052 


040000 


.WORD 40000 ;;?)SET L0C.52 TO 40000 






997 




000044 


.=$SVPC ;; RESTORE PC 






998 












999 




000070 


. 70 






1Q00 


000070 


012737 000136 0C0024 PWRDN: MOV *PWRUP.&»24 






1001 


000076 


000000 


HALT 






1002 






» 

/ 
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ACT11 HOOKS 



H 2 



SC-i 0020 



1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 

1020 

1021 

1022 

1023 

1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1C36 

1037 

1 038 

1039 

1040 

1041 

042 
1043 
1044 
1045 
1046 

1 047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
•1058 



000104 
000112 



000104 

013727 
000000 



000130 



000001 000400 



.=104 

; GET HERE IF AN ILLEGAL TRAP TO LOC. 4 OCCURRED. 

BUSER: MOV a#1.*SMSGTY ; TELL APT FATAL ERROR*000 

HALT ; * ERROR* TRAP TO LOC. 4 OCCURRED. 

;114 AND 116 ARE RESERVED FOR PARITY trap VECTORS. SETUP IN 
; ROUTINE 'BEGIN". 

.=120 



* WRITE MEMORY BACKGROUND 



000120 
000122 
000126 
0001 30 
0001 32 
0001 34 



0001 36 
000142 
000U6 

000150 
000152 



010401 

013700 000316 

010021 

020105 

103775 

000207 



URTMEM: MOV 
MOV 

2$: MOV 
CMP 
BLO 
RTS 



THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO 
THE VALUE STORED AT LOCATION BAKPAT. THE ROUTINE ASSUMES 
THAT R4 IS POINTING TO THE LOWEST LOCATION AND R5 TO THE 
HIGHEST LOCATION TO BE WRITTEN. THE PROGRAM LEAVES THE 
SUBROUTINE WITH RO CONTAINING THE CONTENTS OF BAKPAT. 



R4,R1 

a08AKPAT.RO 

RO.CRD + 

R1 ,R5 

2$ 

PC 



SET R1 TO LOWEST LOCATION UNDER TEST 
LOAD RO WITH THE CONTENTS OF LOCATION BAKPAT 
STARTING FROM THE LOWEST LOCATION WRITE THE 
MEMORY TO BACK GROUND PATTERN 

; RE TURN FROM THE SUBROUTINE 



01 3706 
012700 
060600 

004710 
000120 



000350 
006112 



PWRUP: 



000154 00041 1 



MOV 
MOV 

.ADD 

JSR 

.ASCIZ 

.EVEN 

BR 



a*SAVR6.SP .-RESTORE STACK POINTER 

tfPNTME S-BE G I N . RO 



SP,RO 

PC,(RO; 
/P/ 



START 



;GET THE INDIRECT ADDRESS OF LOCATION TPCRLF 
.•RELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE 
;G0 TO THE TYPE ROUTINE AND TYPE CR. LF AND A 'V 



000156 
000160 
000162 
000164 
000166 



000176 



004710 
000240 
000240 
000240 
000430 

0001 76 
000000 



;* SERVICE XXDP/ACT1 1 
SENDAD: JSR PC.(RO) 

NOP 

NOP 

NOP 

BR RESTRT 

.'-176 
SWREG: .WORD 0 



RETURN TO ACT11/XXDP MONITOR 
IF .QUICK VERIF Y=RESET ELSE NOP 
IF QUICK VERIF Y=CLR #-1 ELSE INC »0 
IF QUICK VERIF Y=8R .-4 ELSE NOP 
REPEAT TEST UNDER ACT1 1/XXDP 



000200 013706 000350 



S8T T L START AND RESTART ROUTINES 

* RESTART AT 200 TO CLEAR APT TABLES 

**************************************************************** 

START: - MOV 4»SAVR6.SP .-SETUP STACK POINTER. 
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I 2 



SCO 0021 



1059 

1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

108C 

1081 

1082 

1083 

1084 

1085 

1 086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 

1101 

1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 

1111 

1112 

1113 

1114 



000204 
000210 
000212 
000216 
000220 
000224 
000226 
000232 
000234 
000240 
000246 



000250 
000254 
000260 
000262 
000264 
000266 
000272 
000274 



000024 
000044 



000276 
000276 
000300 
000302 
000304 
000306 
000310 



012703 


000412 




MOV 


#SUNIT,R3 


.'CLEAR THE APT MAILBOX FROM SMAR TO »0tVCT 


005043 




IS: 


CLR 


-\R5) 


.-CLEAR A MAILBOX LOCATION * 


022703 


000400 




CMP 


#5MAJL,R3 


.-DONE? 


001 374 






BNE 


15 


; BRANCH IF NO 


105 7 b' 










-Ar Til nnr\ci 
; AC 111 HUDb? 


001011 






BNE 


RESTRT 


.-BRANCH IF YES 


105737 


000405 




TST8 


i*$TESTN*1 


;ARE WE RELOCATED? 


100406 






OM T 

Bnj 


nr c tot 

RESTRT 


;BR IF YES- SINCE TPCRLF IS RELOCATED ALSO- 


f\ A/ "7Z. "7 

004767 


006 54 *» 




1 CO 


PC, TPCRLr 


• DO f fclT T I T 1 C 

;PRINl MILE 


055103 


0^6515 045101 




.ASCIZ 


/ r y ism a r A / 

/C/KnAFU/ 


000060 


l 
















-cvtAi 






0 \CfKJ*t 


AA77/ / 


or C TO T . 

RE5THT : 


nOV 


«rtniDPriu 


.LOAD Rs Wl IH THE ADDRE5S OF THE END OF THE PROGRAM 


D1 P7CK 


wUj'iO 




MOV/ 
nu v 






012305 






MOV 


(R3)+.R5 


'RESTORE R5 


012306 






MOV 


(R3)+.SP 


;AND RESTORE R6 JUST IN CASE IT IS A RESTART 


010600 






MOV 


SP.R0 


.'PLACE THE STARTING ADDRESS OF THE TEST IN R0 


012746 


000340 




MOV 


#340. -(SP) 


.'SET HIGH PRIORITY FOR RTI « 


010046 






MOV 


RO.-(SP) 




000002 






RTi 




;G0 TO "START' -MAY BE RELOCATED. 



000276 
00002^ 
000200 
000044 
000276 
000276 



000000 
000400 
001440 
002260 
000000 
000024 



000405 



;IF RELOCATED SEE LOCATION SAVR6 FOR START. 



. S8TTL APT PARAMETER BLOCK 

**************************************************************** 
SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

**************************************************************** 
.$X=. ;;SAVE CURRENT LOCATION 

.=24 ;;SET POWER FAIL TO POINT TO START OF PROGRAM 
200, ;;F0R APT START UP 

.=44 ; .'POINT TO APT INDIRECT ADDRESS PNTR. 
SAPTHDR ;. 'POINT tq APT HEADER BLOCK 
. = .$X ;;RESET LOCATION COUNTER 
**************************************************************** 

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP1 1 DIAGNOSTIC 
INTERFACE SPEC. 



SAPTHD: 

SHI8TS: .WORD 

SMBADR: .WORD 

tTSTM: .WORD 

$PASTM: .WORD 

SUNITM: .WORD 
.WORD 



REL-STESTN+1 



0 ;;TW0 HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMAIl ; .-ADDRESS OF APT MAILBOX (BITS 0-15) 
800. ;;RUN TIM OF LONGEST TEST 

1200. ;;RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.-.-ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL 
SETEND-SMAIL/2 ; .'LENGTH MAI L80X-E TABLE (WORDS) 



;IT WILL BE 0 IF THE PROGRAM IS IN THE lOWER 
.'CORE. BIT 7 OF THE BYTE WILL BE SET IF THE 



UNIT 



v 
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1115 










1116 
1117 












000276 




. -$APTHD 


1118 


00027 i 




MMAVA: 




1119 










1120 










1121 




000277 




.=MMAVA+1 


1122 


000277 




TYPCNB. 




1123 










1124 










1125 




000300 




.=TYPEN8 + 1 


1126 


000300 




SPRERR : 




1127 










1128 










1129 




000301 




.=$PRERP+1 


1130 


000301 




S ADERR : 




1131 










1132 










1133 




000302 




.-SADERR+I 


1134 


000302 




STR7DI : 




1135 




000304 




f T r\ TIN Til 

.=STRTDI+2 


1136 


000304 




L0W8NK: 




1 1 37 




000306 




.=L0W8NK+? 


1138 


y\ y\ y\ ~w f\ y 

000306 




PASFLG: 




4 4 t r\ 

1 1 39 










1 140 










1141 










1 142 




000310 




.-PASFLG+2 


1 143 


000310 




ENDSTK: 




1144 




00031 2 




.=ENDSTK+2 


1145 


000312 




PBNK: 




114t 


00031 2 




r>r /■ i inn 

DECWRD : 




4 4 / ~» 

1 147 




000314 




n^ inn * *"i 

.=DECWRD+2 


1 148 


000314 


000 


TYPCNT : 


.BYTE 0 


1 149 










1 150 


y\ y\ y\ t 4 r 

00031 5 


000 


SAVKB8 : 


• B-'E 0 


1151 










1152 






.EVEN 




1153 










1 154 










^ 4 c c 

1155 




1 77560 


TKS 


4 ~y^c / A 

177560 


1 1 56 




1 77562 


$K88- 


1 77562 


1157 




1 77564 


$TPS- 


177564 


i15o 




1 r Aoo 


5 1 P8= 


1 / /OOO 


1 159 




1 77572 


SR0- 


177572 


1 160 


AAA 7 4 y 

000316 


000377 


BAKPAT : 


.WORD 377 


1 161 










4 4/1 

1 162 


000320 


AAA AAA 

000000 


SUAPAT : 


.WORD 


1 163 


aaa "J* "i 

00032? 


AAA/ 7A 

000430 


REL80T: 


BEGIN-50 


I I Oh 










1165 






• ********************* 


1166 






; LOCATIONS TO BE MOD IF 


1167 


000324 


000000 


L0WTWO: 


0 


1168 


000326 


000000 


LOWADD: 


0 


1169 










1170 


000330 


000000 


HIGHTWO 


: 0 



J 2 



; PROGRAM IS IN A RELOCATED STATE AND BiT 5 
.-WILL BE SET IF PARITY BITS ARE BEING TESTED 

.-THIS BYTE IS USED TO DETERMINE IF MEMORY 
.-MANAGEMENT IS AVAILABLE OR NOT 



.-THIS BYTE IS USED TO DETERMINE IF THE 

; T YPE OUT OF ERROR HAS BEEN ENABLED OR NOT 



;THIS BYTE DETERMINES IF THE PROGRAM HAS FOUND 
;A PARITY ERROR 



;THIS BYTE IS USED TO DETERMINE IF THE 
.•PROGRAM HAS ENCOUNTERED ADDRESS ERROR 



seo oop; 



LOWER BYTE OF THIS WORD GIVES THE PASS NUMBER FOR 

THE SPECIFIC TEST WHEREAS THE UPPER BYTE 

HAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES 



.-HOLDS BANK UNDER TEST FOR "TST BNK XX" PRINTOUT. 



;THIS BYTE DETERMINES THE NUMBER OF WORDS 
;T0 BE TYPED 

.THIS LOCATION IS USED TO SAVE THE CHARACTER 
;HIT BY THE OPERATOR 



.-BACKGROUND PATTERN WRITTEN TO MEMORY. 

.-HOLDS LOWEST TEST ADDRESS WHEN REL0CA T ED . 

******************************************* 

IED IF LIMITS SET BY OPERATOR 

.-HOLDS BiTS 17:16 OF LOW TEST ADDRESS 
.-HOLDS BITS 15:0 OF LOW TEST ADDRESS 

.-HOLDS BITS 17:16 OF HIGH TEST ADDRESS 
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1171 


000332 


037776 


1172 






1173 






1174 


000334 


000000 


1175 


000336 


01 7776 


1176 






1177 


000340 


000000 


1178 






1179 


000342 


000000 


1180 


000344 


000000 


1181 


000346 


000000 


1182 






1183 






1184 


000350 


000500 


1185 


000352 


000000 


1186 


000354 


000000 


1187 


000356 


000000 


1188 


000360 


000000 


1 189 






1190 






1191 






1192 






1193 






1194 






1195 
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APT PARAMETER BLOCK 



K 2 



SEO 00, i 



HIGHADD: 



37776 



.HOLDS BJTS 15:0 Of HIGH TEST ADDRESS 



SHI MAX: 0 
IMA KM: 17776 



.-HOLDS 8JTS 17:16 OF MAXIMUM AVAILABLE MEMORY 
.-HOLDS BITS 15:0 OF MAXIMUM AVAILABLE MEMORY 



MAXMEM: .WORD ."MAXIMUM CURRENT VIRTUAL MEMORY UNDER TEST 

SAVMAX: .WORD 

SAVR4: .WORD 

SAVR5: .WORD 



SAVR6: 
PARMAP: 
SAVLOC: 
PARSP: 
PARPS : 



.WORD BEGIN 



* SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED. 

.•CONTAINS START ADDRESS WHEN RELOCATED Al SO. 
.-MAP OF PARITY MODULES UNDER TEST. 
.-TEST 6 STORES ERROR INFO HERE 
SP DURING PARITY ERROR TRAP. 

; SAVE PSW DURING PARITY ERROR TRAP. 
;NOTE-PARSP ♦ PARPS ARE NEEDED SINCE THERE IS 
;IS NOT ENOUGH ROOM ON THE STACK (500-452) AND 
;S0 THE STACK MUST BE RESET IN THE PARERR ROUTINE. 
;IN THIS CRUDE FASHION. 



0 
0 
0 
0 



;SAVE 



;*364-400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FOR ERROR HISTORY PRINTOUT 



CZKMA MACY11 3OA(105?) 05-MAR-79 
CZKMAF.P11 05-MAR-79 09:0? 



1196 




0004 0C 


1197 






1198 






1199 






1200 
1201 






000400 




1202 


000400 


000000 


1203 


000402 


000000 


1204 


000404 


000000 


1205 


000406 


000000 


1206 


000410 


000000 


1207 
1 208 


000412 


000000 


000414 


000000 


1209 


000416 


000000 


1210 


000420 




1211 


000420 


000 


1212 


000421 


000 


1213 


000422 


000000 


1214 
1215 


000424 


oocooo 


000426 


000000 


1216 






1217 






1218 






1219 






1220 






1221 






1222 


000430 


000 


1223 


000431 


000 


1224 






1225 






1226 






1227 






1228 


000432 


000000 


1229 






1230 


000434 


000 


1231 


000435 


000 


1232 


000436 


000000 


1233 


000440 


000 


1234 


000441 


000 


1235 


000442 


000000 


1236 


000444 


000 


1237 


000445 


000 


1238 


000446 


000000 


1239 


000450 




1240 






1241 






1242 






1243 
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APT PARAMETER BLOCK 



L 2 



SEO CXV*. 



. 400 

.S8TTL APT MAIL80X-ETAB..E 



.EVEN 
SMAIL: 
SrtSGTY: 
tFATAL ; 
STESTN: 
SPASS: 
SDEVCT: 
SUNIT: 
SMSGAD: 
SMSGLG: 
SE TABLE : 
SENV: 
SENVM: 
SSWREG: 
SUSUR: 
tCPUOP. 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 

BYTE 
BYTE 
WORD 
WORD 
WORD 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNJT 

AMSGAD 

AMSGLG 

AENV 

AENVM 

ASWREG 

AUSWR 

ACPUOP 



;;APT MAILBOX 
;; MESSAGE TYPE CODE 
; .-FATAL ERROR NUMBE* 
;;TEST NUMBER 
;;PASS COUNT 
;;DEVICE COUNT 
;;I/0 UNIT NUMBER 

; .-message: ADDRESS 

; ; MESSAGE LENGTH 

;;APT ENVIRONMENT TABLE 

.-.ENVIRONMENT BYTE 

; .-ENVIRONMENT MODE BITS 

;;APT SWITCH REGISTER 

;;USER SWITCHES 

;;CPU TYPE. OPTIONS j 
BITS 15-11 -CPU TYPE * 

11/04=01.11/05-02,11/20-03. 11/40 04.11/45*05 

11/70=06, PD0=07. 0=10 I 
BIT 1 0=REAL TIME CLOCK / 
BIT 9=FL0ATING POINT PROCESSOR J 
BIT 8=MEM0RY MANAGEMENT 
;;HIGH ADDRESS.M.S. BYTE 
;;MEM. TYPE.8LK#1 
MEM. TYPE BYTE — • (HIGH BYTE) 

900 NSEC C0RE--001 

300 NSEC BIPOLAR-002 

500 NSEC M0S=003 
.-.-HIGH ADDRESS ,8LK#1 

MEM. LAST ADDR.=3 BYTES. THIS WORD AND LOW OF "TYPE" ABOVE 
;; HIGH ADDRESS.M.S. BYTE 
;. -MEM. TYPE ,8LMf2 
; ;MEM. LAST ADDRESS, 8LK#2 
;;HIGH ADDRESS, M.S.8YTE 
;; MEM. TYPE ,BLK*3 
; ; MEM. LAST <\DDRESS.BLK#3 
.-.-HIGH ADDRESS.M.S. BYTE 
;;MEM.TYPE,8LK#4 
; ;MEM. LAST ADDRESS, 8LKA4 



•♦•••••a******************************************************* 



SMAMS1 : 


.BYTE 


AMAMS1 


SMTYP1 . 

• * 

• * 
* 


.BYTE 


AMTYP1 


• * 

• 

• * 

SMADR1 


.WORD 


AMADR1 


- * 

SMAMS2 


.BYTE 


AMAMS2 


$MTYP2 


.BYTE 


AMTYP2 


SMADR2 


.WORD 


AMADR2 


SMAMS3 


.BYTE 


AMAMS3 


SMTYP3 


.BYTE 


AMTYP3 


SMADR3 


.WORD 


AMADR3 


SMAMS4 


.BYTE 


AMAMS4 


SMTYP4 


•BYTE 


AMTYP4 


SMADR4 


.WORD 


AMADR4 


SETEND 






.MEXIT 







. SBTTL BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES. 
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1244 










SWR: 


177570 


1245 


000450 


177570 






1246 












.-500 


1247 




000500 








1248 


000500 


010706 






BEGIN: 


MOV 


1249 














1250 


000502 


005746 








T5T 


1251 


000504 


010637 


000350 






MOV 


1252 


000510 


012737 


000070 


000024 




MOV 


1253 


000516 


005037 


000300 






CLR 


1254 


000522 


005037 


000314 






CLR 


1255 


000526 


012700 


000114 






MOV 


1256 


000532 
000536 


012710 


005504 






MOV 


1257 


060720 








ADD 


1258 


000540 


012710 


000340 






MOV 


1259 


000544 


105737 


000405 






TST8 


1260 


000550 


100002 








BPL 


1261 


000552 


000167 


000614 






JMP 


1262 














1263 


000556 


005737 


000406 




ONE PAS: 


TST 


1264 


000562 


001402 








BEQ 


1265 


000564 


000167 


000430 






JMP 


1266 


000570 


012704 


007744 




TSTRP: 


MOV 


1267 


000574 


012700 


000377 






MOV 


1268 


000600 


010037 


000316 






MOV 


1269 


000604 


005001 








CLR 


1 270 


000606 


012124 






2$: 


MOV 


1271 


000610 


020127 


000400 






CMP 


1272 


000614 


103774 








BLO 


1273 


000616 


005741 






3$: 


TST 


1274 


000620 


010011 






4$: 


MOV 


1275 














1?76 


000622 


02001 1 








CMP 


1277 


000624 


001403 








BEQ 


1278 














1279 


000626 


004767 


005334 






JSR 


1280 


000632 


000001 








1 


1281 














1282 


000634 


000300 






6$: 


SWAB 


1283 


000636 


001370 








BNE 


1284 


000640 


005701 








TST 


1285 


000642 


001365 








BNE 


1286 


000644 


012701 


000400 






MOV 


1287 


000650 


014441 






8$: 


MOV 


1288 


000652 


005701 








TST 


1289 


000654 


001375 








BNE 


1290 


000656 


012700 


000006 




SETSWR: 


MOV 


1291 


000662 


012710 


000340 






MOV 


1292 


000666 


012740 


000700 






MOV 


1293 


000672 


005777 


177552 




2$: 


TST 


129*. 


000676 


000404 








8R 


1295 


000700 


022626 






4$: 


CMP 


1296 


000702 


012737 


0001 76 


000450 




MOV 


1297 














1298 














1299 


000/10 


105737 


000420 




5$: 


TST8 



M 2 

STED (*20) WHEN PROGRAM RELOCATES. 



SEO 0025 



; CHANGES TO SWREG IF NO HARDWARE SWITCH REGISTER 



PC.SP 
-(SP) 

SP.a»SAVR6 

#PWRDN,a*24 

3*$PRERR 

aWPCNT 

#114,R0 

#PARERR-.-6,(R0) 

PC.(RO)* 

#340, (RO) 

a*REL 

ONE PAS 

TSTREL 

3#$PASS 
TSTRP 
SETSTK 
#ENDPRG ,R4 
#377. RO 
R0.a#8AKPAT ' 
R1 

(R1)+.(R4)* 
R1 ,#$MAIL 
2$ 

-(R1) 
R0,(R1) 

R0«(R1) 
6$ 

PC.FATERR 



;SET UP STACK POINTER TO EQUAL BEGIN ADDRESS 



RO 
AS 
R1 
3$ 

#$MAIL.R1 

-(R4).-(R1) 

R1 

8$ 

#6.R0 
#340, (RO) 
#4$,-(R0) 

aswR 

5$ 

(SP)*,(SP)+ 
#SWREG.a#SWR 



a#$ENV 



;SAVE SP FOR FUTURE USE 

.•PREPARE FOR ANY FUTURE POWER DOWN 



.•PREPARE TO SETUP PARITY TRAP VECTOR 

TO PARERR 

AND PSW OF 340 

IS THIS CODE RELOCATED? 

BRANCH IF NO 

THIS CODE IS RELOCATED SO GET TEST SIZE . 
IS THIS THE FIRST PASS? 

BRANCH IF YES (TEST TRAP CATCHER ADDRESSES) 

GET THE TEST SIZE 
LOAD R4 WITH THE ADDRESS OF ThE END OF THE PROGRAM 



.-SAVE FROM 0000 TO BEGIN-30 AT END OF PROGRAM FOR KM 



PREPARE TO TEST THE TRAP VECTORS 

CHECK THE TRAP VECTORS FOR THE CAPABILITY 

OF HOLDING O'S & TS 

IS THE DATA OK? 

BRANCH IF YES 

.••ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
; **«r***ERROR NUMBER 1 *»*•** 



;IF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION 
.-THEN REPEAT FROM 3$ 

.•RESTORE TRAP CATCHER ETC. 



SET UP TIME OUT TRAP PSW 
AND THE RETURN ADDRESS 

DOES THE SWITCH REGISTER POINTED BY SWR EXIST ? 

BRANCH IF YES 

RESTORE THE STACK POINTER 

AND PLACE THE ADDRESS OF THE SWITCH REGISTER 
DESIGNED FOR THE COMPUTERS NOT HAVING HARDWARE 
SWITCH REGISTER AND RUNNING STAND ALONE 
RUNNING UNDER APT? 



N 2 

CZkMA MACY11 30A(1052> 05-MAR-79 09:02 PAGE 26 

CZKMAF.P11 05-MAR-79 09:02 BEGIN OF AREA TESTED U20) WHEN PROGRAM RELOCATES. 



SEO 0026 



1300 

1301 

1302 

1303 

1304 

1305 

1 306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1 332 

1333 

1334 

1335 

1336 

1337 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 



000714 
000716 



000724 
00C730 
000736 
000744 
000750 

000752 
000756 
000762 
000764 
000766 
000772 

000774 
001000 

001002 
001006 
001012 

001014 
001022 



001024 
001026 
001032 
001034 
001 040 
001044 



001046 
001052 
001054 
001062 
001064 
001070 



001403 

012737 000422 



000*50 



BEQ APTSIZ 

MOV *$SWREG.3*SWR 



.•BRANCH 15 NO 

;SET SWR EQUAL TO APT SWITCH REGISTER. 



012703 
013737 
013737 
105737 
10C021 

012701 
162701 
105711 
001006 
020127 
101371 

004767 
000002 

004767 
004767 
000464 

032777 
001060 



010401 
012710 
011111 
062701 
■022701 
101372 



005737 
001410 
023737 
001404 
162701 
000401 



AP1SIZ- THIS ROUTINE WILL SEARCH THE APT MEMORY E TABLE AND WHEN 
A NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADDRESS. 

IF APT DEFINES SIZE THE LOW TEST ADDRESS MUST=00000. (DUE TO ETABLE FORMAT) 

FLOW; 

IF BLOCK 4 (OR 3,2.1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT. 
ELSE SEND ERROR #3 
NOTE; THE MEMORY TYPE IS IGNORED SINCE ALL TESTS ARE RUN REGARDLESS OF MEMORY TYPE 



000340 
000330 
000332 
000421 



000451 
000004 



000431 
005166 



006324 
006320 



000334 
000336 



API SIZ : MOV 
MOV 
MOV 
TSTB 
8Pl 



0MAXMEM.R3 .-POINT R3 TO MAXMEM. 

a*HIGHTWO,a#$H!MAX ; IN CASE NO SELF SIZING DONE, 

a*HTGHADD,a#SMAXM ;IN CASE NO SELF SIZING DONE. 

attENVM ;DOES APT ALLOW SELF SIZING? 

TRYSR .-BRANCH IF YES 



1$: 



MOV 

SUB 

TSTB 

BNE 

CMP 

BHI 

JSR 
2 



2$: 



000100 177426 



001072 

000002 
170000 



000042 
000042 
010000 



000046 



JSR 
JSR 
BRTPSZ: BR 

TRYSR: BIT 
BNE 



SLFSIZ: MOV 
MOV 

2$: MOV 
ADD 
CMP 
BHI 



TST 
BEQ 
CMP 
BEQ 

sue 

BR 



#$MTYP4+4.R1 

*4,R1 

(R1) 

2$ 

R1,*SMTYP1 
1$ 

PC.FATERR 



PC.GETADR 
PCGETADR 
TYPSIZ 

#100.aSWR 
TYPSIZ 



R4.R1 
#4$,(R0) 
(R1),(R1) 
*2,R1 

#1 70000. R1 
2$ 



3*42 
5$ 

3*42. 3*46 
5$ 

#10000. R1 
5$ 



POINT R1 TO BLOCK TYPE 4 (+4) 
POINT R1 TO NEXT BLOCK TYPE. 
IS THE BLOCK TYPE NON ZERO? 
BRANCH IF YES (MEMORY EXISTS) 
ALL APT BLOCK TYPES BEEN CHECKED? 
BRANCH IF NO 

; * ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
; ******ERROR NUMBER 2****** 

GO SET MAXIMUM APT ADDRESS INTO SMAXM ♦ $HIMAX 
GO SET MAXIMUM APT ADDRESS INTO HIGHADD+HIGHTWO 
TYPE THE SIZE OF MEMORY UNDER TEST 

.-USER DEFINED MEMORY TEST BOUNDARIES?? 
.BRANCH IF YES (DON'T SIZE MEMORY) 



SETUP R1 AND R4 TO THE LOWEST ADDRESS OF MEMORY 

SET UP RETURN ADDRESS FROM TIME OUT TRAP TO 4$ 

WRITE A MEMORY LOCATION INTO ITSELF AND TRAP IF NXM 

ADD 2 TO THE ADDRESS POINTER 

CHECK If BEYOND 30K MEMORY BOUNDARY 

KEEP ON SIZING UP THE MEMORY UNTIL NXM TRAP 

(TIME OUT TRAP) IS ENCOUNTERED 

OR 30K BOUNDARY REACHED 

IF NOT XXDP 

THEN CONTINUE 

ELSE IF NOT XXDP CHAINING 
THEN CONTINUE 
ELSE SET MAX. MEM. AT 28K 
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1356 


001072 


022626 






4$: 


CMP 


1357 


001074 


004767 


005764 




5$: 


JSR 


1358 














1359 


001100 


105737 


000276 






TST8 


1360 
1361 


001104 


001416 








BEO 


001106 


012710 


001120 




6$: 


MOV 


1362 


001112 


01 2701 


020000 






MOV 


1363 


001116 


000745 








BR 


1364 


001120 


022626 






8$: 


CMP 


1365 


001122 


022701 


1 60000 






CMP 


1366 














1367 














1368 


001 1 26 


001 005 








BNE 


1369 


001130 


01 3702 


172352 






MOV 


1370 


001134 


004767 


AAf 77A 

005730 






JSR 


1371 


001140 
001142 


000762 








BR 


1372 


024341 






12$: 


CMP 


1373 














1374 


001 144 


004767 


006072 






JSR 


4 7 7 f 

1375 














1376 


001 1 50 


024343 








CMP 


1377 


001 1 52 


004 767 


AAZ A/ / 

006064 






JSR 


1378 














1 379 


001 1 56 


OO C 7/7 

005743 








TOT 

1ST 


1 380 


001 1 60 


005043 








CLR 


4 7Q4 

1381 


001162 


A AC A / 7 

005043 








CLR 


1 382 


AA4 4 / / 

001164 


01 17"JA 

012720 


AAA1 A/ 

000104 




T WOC T 7 . 

TYPSIZ: 


MOV 


4 70 7 

1383 


001 1 70 


/-\ 4 r\ / A7 

010403 








MOV 


1384 














1385 


AA4 4 "7 *"» 

001 1 72 


A< "> 7A1 

012701 


AAAT 1 / 

000524 






UAi / 

MOV 


1386 


001 1 76 


004767 


A AC 7 7A 

005370 






JSR 


4 707 

1387 


001202 


AA/ 7/ 7 

004 767 


AAC C 7Z. 

005536 






1 f o 

JSR 


1388 


001 206 


AA/ 7/ 7 

004767 


AAC T71 

005272 




T YPMEM: 


JSR 


1389 


OO 1 H 1 

001212 


000055 








a r* r T 7 

.ASCJZ 


1390 












c v ir»i 

• EVEN 


^ 7A1 

1 391 


AA-1 Ol / 

001214 


AA/ 7Z 7 

004 767 


005524 






1 PA 

JSR 


1392 


001 220 


/"\ 4 — » 7A7 

012703 


A AO 77 A 

000330 




SETS7K: 


MOV 


1393 


001224 


AA/ 7/ 7 

004767 


AA/ 11/ 

00611 6 






JSR 


1 394 














1 395 


001230 


O 1 O / A 1 

010401 








||AI / 

MOV 


1 396 














4 7/ ^7 

1397 


AO 1 ^71 

001232 


A/ 17A/ 

062704 


000022 




4$: 


ADD 


1398 














1 399 


001236 


A AC 7A^ 

005302 








DEC 


1 / AA 

1400 


AA1 "5/ A 

001 240 


AAT77/ 








BGE 


1401 


001242 


A*n 777 

022737 


167776 


AAA7TZ. 

000336 




CMP 


1 / A"> 

1402 


AA1 "1CA 

001250 


A A 1 AAI 

001 002 








BNE 


1403 


aai in 


062 f 04 


000022 






AAA 

ADD 


1404 


AA1 

001256 


A 1 A/ 17 

010437 


AAA7 1 A 

000310 




5$: 


MOV 




UU 1 coc 


U' ' jUc I 








LLn 


1406 


001264 


0c^104 








CMP 


1407 


001266 


101775 








BLCS 


1408 


001270 


012737 


157776 


000340 




MOV 


1409 


001276 


005723 








TST 


1410 


001300 


001005 








BNE 


1411 


001 302 


021327 


1 70000 






CMP 



1 



B 3 

ESTED (*20> WHEN PROGRAM RELOCATES. 



SEO 0027 



(SP)*.(SP)+ 
PC.MEMMNG 

S#MMAVA 
12$ 

#8$,(R0> 
#20000. R1 
2$ 

(SP)*.(SP>* 
#1 60000. R1 



12$ 

3*1 72352. R2 

PC.MMREG 

6$ 

-(R3),-(R1> 

PC.PUTADR 

-(R3),-(R3) 
PC.PUTADR 

-<R3) 
-(R3) 
-CR3) 

#8USER.(R0>+ 
R4.R3 

*LCWTW0,R1 

PC.PCRLF 

PC.0CTTYP 

PC,$TYPE 

/-/ 

PC.OCTTYP 
#HJGHTW0,R3 
PC,$GTSIZ 

R4.R1 

#18.,R4 

R2 
4$ 

#1 67776, 3*$MAXM 
5$ 

#18. ,R4 

R4.3#ENDSTK 

(R1) + 

R1.R4 

6$ 

#1 57776. 3#MAXMEM 

(R3) + 

SAVLDR 

(R3) ,#170000 



RESTORE THE STACK P0IN1ER 

SERVICE MEMORY MANAGEMENT IF IT IS AVAII ABLE 
AND IF IT HAS TO BE TESTED 
SEE IF MEMORY MANAGEMENT HAS TO BE TESTED 
IF NO MEM. MANG. THEN GO TO 12$ 
SET UP THE RETURN ADDRESS FROM TRAP TO 8$ 
BEGIN CHECKING MEMORY ABOVE 28K 

RESTORE STACK POINTER 

IF R1 DID NOT READ ALL THE LOCATIONS POINTED BY 
PAGE ADDRESS REGISTER 6 THEN IT HAS REACHED THE 
MAXIMUM AVAILABLE MEMORY 
IN WHICH CASE GO TO 12$ 

PREPARE TO UPDATE MEMORY MANAGEMENT REGISTERS 

; OTHERWISE GO TO UPDATE MEM. MANG. REGISTERS 

CAUSE R3 TO POINT TO LOCATION $MAXM AND R1 

TO THE MAXIMUM AVAILABLE MEMORY 

GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN R1 

AT LOCATIONS $MAXM AND $HIMAX 

MAKE R3 POINT TO HIGHADD 

PLACE THE ADDRESS IN R1 AT LOCATIONS HIGHADD 
AND HIGH TWO 

CLEAR THE LOCATION L0WADD 
AND L0WTW0 

SET UP VECTOR FOR ANY FUTURE TRAP 

SET R3 TO POINT TO THE I 0WEST AVAILABLE MEMORY 

LOCATION 



TYPE CR/LF 

TYPE LOW TEST ADDRESSE 
TYPE '-" 



(L0WTW0H.0WADD) 



.-TYPE HIGHEST TEST ADDRESS (HIGHTWO+HIGHADD) 
;MAKE R3 POINT TO THE HIGH ORDER BITS OF TOP ADDRESS 
; GET THE BITS 13-17 OF THE TOP ADDRESS 
.•PLACED IN BITS 0-4 OF R2 
;SET R1 TO LOWEST TEST ADDRESS 

.•APPEND THE ERROR STACK FOR THE MEMORY UNDER 
.-TEST TO THE END OF THE PROGRAM 



CHECK IF THIS IS A 30K SYSTEM 
BRANCH IF NOT 

SAVE ANOTHER BANKS WORTH OF ERROR STACK 

SAVE THE ADDRESS OF THE END OF THE ERROR SIACK 

CLEAR THE ERROR STACK 



;SET MAXMEM TO MAXIMUM VIRTUAL ADDRESS 
TESTING MEMORY MANAGEMENT? 

BRANCH IF YES (GO SAVE LOADERS AT TOP OF VIRTUAL MEMORY 
IS THE VIRTUAL ADDRESS ABOVE 167776? 
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09:02 PAGE 
BEGIN OF 



1412 


001306 


103002 




1413 


001310 


0*1363 


000002 


1414 








1415 








1416 








1417 


001 314 


004767 


006100 


1418 


001 320 


005723 




1419 


001322 


011305 




1420 








1421 








1422 








1423 


001 3^4 


A 1 A C A 7 

020527 


A 1 777/ 

01 7776 


1424 


A /\1 7 7/"\ 

001330 


•1 A7 / 1 / 

103416 




1425 








1426 


AA-1 771 

001 332 


162705 


AAA 1 7/. 

000276 


1427 


AA1 77/ 

001 336 


AAC 777 

005737 


AAA A/ 1 

00004 c 


1428 


AA-1 7 y 1 

001 342 


AAI / AZ 

001406 




1429 


AA*1 7 / / 

001 344 


AT7777 

023737 


AAAA/ I 

000042 


1430 


AA 1 7n 

001352 


AA1 / AT 

001402 




1431 


AA-1 7 C / 

001 354 


1/1 7AC 

162705 


AAC 77iL 

003576 


1432 


AA 4 7/ A 

001 360 


A 1 ~>C A/ 

012524 




1433 


AA1 Z Z. 

001 562 


AOAC1 7 

020513 




1/7/ 

1 4 34 


/\A1 7/ / 

001 364 


1 A1 77C 




1 / 7r 

1435 


A A1 7/ Z 

001 366 


A1 ")7T7 




1 4 36 


AA1 7 7A 

001 570 


Ai A/ 17 

010425 




1/77 

1437 








1438 


AA1 771 

001 572 


A1 AC 7 7 

01 0557 


AAA7/ Z. 

000^h6 


1 / 7n 

1439 


AA1 77Z. 

001576 


AAy 7^ 7 

004 767 


AAZ. A1 

006016 


1 / / A 

1440 


AA1 / A A 

001 40<? 


AAC 7/ C 

00574b 




1 / / 1 

1441 


AA1 / A/ 

001404 


A1 "57A7 

012705 


AAA71/ 

000524 


-1 / / A 

1442 


AA1 / 1 /* 

001 41 C 


AAC 717 

005725 




1443 








1 / / / 

1444 


aai / n 

00 1412 


AA1 AA7 

001 005 




1 / / c 
144? 


AA1 / 1 / 

QUI 414 


ATI 717 

021527 


1 C777it 
1 3 f f 76 


1446 








1 / / 7 

1447 


AA1 / OA 

001420 


1 A7/ 1 1 

1 0541 1 




1 / / o 

1448 


A A 1 / TO 


A7*}777 


A1 AAAA 

010000 


i / y ft 
1449 


AA1 / 7A 

007430 


AA1 AA7 
001005 




1450 


AA1 / 71 

001452 


AA/ 7^.7 

004 767 


AA* C7A 

004550 


1451 


AA1 / 2£. 

001436 


A AAA A 7 

000005 




1452 








1 / C 7 

1453 


AA1 / / A 

001440 


AAA1 Z. 7 

000 l of 


AA7C1 O 

005312 


1 / C/ 

1454 


AA1 / / / 

00 1 444 


ATA/ 17 

020425 




l*o5 








1456 








1 / C7 


001446 


1 A7AA*5 
I 05002 




1 / c o 

1458 


AA1 / CA 

001450 


Ai / 7A/ 

016504 


1 7777A 

1 77776 


1 / Cft 

1459 


AA 1 / C / 

00143*i 


AAC 7^7 
003 f 25 




1 / m 
1460 


AA1 / 

001 436 


AA1 AAT 
001 005 




I HO I 


AAI //.A 
\JV 1 HOU 






1462 








1463 


001462 


101001 




1464 


001464 


0 1 1 305 




1465 


001466 


105737 


000*05 


1466 


001472 


100014 




1467 


001474 


013704 


000322 



28 

AREA 

BHIS 
MOV 



C 3 

TESTED (+20) UHEN PROGRAM RELOCATES. 



SP0 0028 



SAVLDR: JSR 
TST 
MOV 



SAVLDR 
(R3).2(R3) 



PC.CLRMM 

(R3) + 
(R3J.R5 



BRANCH IF YES (GO SAVE I 0ADERS) 

OTHERWISE MAKE THE CONTENTS OF LOCATION MAXMEM 

EQUAL TO THE MAXIMUM AVAILABLE MEMORY 

AND FALL INTO SAVE LOADERS. 

DISABLE THE MEMORY MANAGEMENT UNIT 
MAKE R3 TO POINT TO THE LOCATION MAXMEM 
R5 CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM. 



;IF ONLY 4K BEING TESTED DON'T SAVE LOADERS 



3$: 

2$: 
4$: 



CMP 
BL0 

SUB 

TST 

BEQ 

CMP 

BEG 

SUB 

MOV 

CMP 

BL0S 

MOV 

MOV 



TSTREL: MOV 
TSTSIZ: JSR 
TST 

1$: MOV 
TST 

BNE 
CMP 

BL0 

?$: BIT 
BNE 
JSR 
3 



3$: 
4$: 



6$: 



8$: 



JMP 
CMP 



BHIS 

MOV 

TST 

BNE 

CMP 

BHI 

MOV 

TST8 

BPL 

MOV 



R5. #17776 ;0NLY TESTING 4K MAX? 

4$ .-BRANCH IF YfS (DON'T SAVE LOADERS) 

#276. R5 ; PREPARE TO SAVE 300 BYTES OF THE LOADERS 

3*42 ;IF RUNNING UNDER XXDP 

2$ ; THEN CONTINUE 

5l#42.a»46 ; ELSE IF NOT UNDER XXDP CHAIN MODE 

2$ ; THEN CONTINUE 

#<1502.*2>-276,R5 ; ELSE SAVE 1500. WORDS FOR XXDP CHAIN MODE 

(R5)+,(R4)+ ;SAVF LOADER 
R5,,'R3) 
2$ 

(R3)+.(R3)+ 
R4,(R3)+ 



R5.3#SAVR5 

PC.CLRMM 

-(R5) 

#L0WTW0,R3 
(R3) + 

2$ 

(R3) ,#157776 
4S 

#10000.aSWR 
3$ 

PC.FATERR 



TSTMM 
R4,(R3)+ 



6$ 

-2(R3).R4 

(R3)* 

8$ 

(R3),R5 
8$ 

(R3).R5 

a#REL 

10$ 

3#REL80T,R4 



;SAVE THE CONTENTS OF LOCATION MAXMEM IN SAVMAX 
;AND THE CONTENTS OF R4 AT SAVR4 

SAVE HIGHEST VIRTUAL ADDRESS+2 

GO TO DISABLE MEMORY MANAGEMENT UNIT 

SET R5 BACK TO HIGHEST VIRTUAL ADDRESS 

PREPARE TO LOAD R4 AND R5 WITH THE MEMORY 30UNDRIES 

IF THE BITS 16.17 OF THE LOWEST LOCATION UNDER 

TEST ARE NON ZERO 

THEN GO TO 2$ 

IF THE LOWEST LOCATION UNDER TEST IS HIGHER THAN 
157776 THEN GO TO TEST MEMORY MANAGEMENT 

IS MEMORY MANAGEMENT SELECTFD? 
YES ALL IS WELL 

•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
******ERR0R NUMBER 3****** 



GO TO TEST MEMORY MANAGEMENT 

COMPARE TOP OF PROGRAM (WITH SAVED LOADERS) 

LOWEST LOCATION UNDER TEST 



TO 



ADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEiT 

IF BITS 16-17 OF HIGHEST LOCATION TO BE TESTED 

ARE NON ZERO THEN GO TO 8$ 

OTHERWISE SEE IF THE HIGHEST LOCATION TO BE 

TESTED IS HIGHER THAN HIGHEST VIRTUAL ADDRESS 

IF SO THEN GO TO 8$ 

MODIFY R5 

ARE WE RELOCATED.? 

BRANCH IF NO 

SET BOTTOM TEST ADDRESS WHEN RELCCA T ED. 
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09:02 PAGE 29 
BEGIN OF AREA 



D 3 

TESTED (*20) JHEN PROGRAM RELOCATES. 



SEO 0029 



1468 


0C1 500 


020527 


01 7776 




CMP 


R5.*1 7776 


1469 


001504 


103402 






BLO 


91 


1470 


001506 


012705 


0' 7776 




MOV 


#17776.R5 


1471 












R4.R5 


1472 


001512 


020405 




9$: 


CMP 


1473 


001514 


103403 






BLO 


10$ 


1474 


001516 


C04767 


004444 




JSR 


PC.FATERR 


1475 


001522 


000004 






4 




1476 












*SAVMAX.R3 


1477 


001 524 


012703 


000342 


10$: 


MOV 


1478 


001 530 


011343 






MOV 


(33). -(R3) 
#2.(R3) 


1479 


001532 


06271 3 


000002 


MEMTST: 


ADD 


1480 












(R5) + 


1481 


001536 


005725 






TST 


1482 














1483 








.-CLEAR 


MEMORY 


UNDER TEST 


1484 












R5.R0 


1485 


001540 


010500 




CLRMEM: 


MOV 


1486 


001 542 


C05040 




2$: 


CLR 


-(RO) 


1487 


001 544 


C20004 






CMP 


R0.R4 


1488 


001 546 
001550 


101375 






BHI 


2$ 


1489 


012702 


000001 




MOV 


#1.R2 


1490 


001554 


004767 


005740 




JSR 


PC. PARITY 


1491 


001 560 


012702 


000316 




MOV 


#8AKPAT.R2 


1492 


001 564 


012212 






MOV 


(R2)+.(R2) 


1493 


001566 


000312 






SWAB 


(R2) 


1494 


001 570 


01 7702 


1 76654 




MOV 


3SWR.R2 


1495 


001574 


042702 


1 77760 




BIC 


#1 77760. R2 


1496 


4 












1497 














1498 














1499 














1500 








; ENTER HERE FROM TS1SCP ROUT 


1501 














1502 


001600- 


005037 


000306 


CONT: 


CLR 


3*PASFLG 


1503 


001 604 


110237 


000404 




MOVB 


R2,a*$TESTN 


1504 














1505 


001610 


010401 




LOOP: 


MOV 


R4.R1 


1506 


001612 


0 1 0400 






MOV 


R4.R0 


1507 












R4.R3 


1508 


001614 


010403 






MOV 


1509 


001616 


006302 






ASL 


R2 


1510 


001620 


060702 






ADD 


PC.R2 


1511 


00 i 622 


066207 


000004 




ADD 


TBL-.(R2),PC 


1512 














1513 














1514 














1515 


001626 


000102 




TBL: 


TSTO- 


TBL 


1516 


001630 


000340 






TST1- 


TBL 


1517 


001*32 


000440 






TST2- 


TBL 


1518 


001634 


000550 






TST3- 


TBL 


1519 


001636 


001016 






TST4- 


TBL 


1520 


001640 


001126 






TST5- 


T8L 


1521 


001642 


001274 






TST6- 


TBL 


1522 


001644 


001430 






TST7- 


TBL 


1523 


001646 


001654 






TST10 


-TBL 



;ARE WE RELOCATED IN BANK 0"> 
;RRANCH IF YES 

.-ELSE SET HIGH MEMORY UNDER TEST-4K 

IS LOW LIMIT LOWER THAN HIGH LIMIT? 
BRANCH IF YES 

•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
******ERROR NUMBER 4****** 



RESTORE THE CONTENTS OF MAXMEM 

MAKE THE CONTENTS OF MAXMEM MAXiMUM AVAILABLE 

MEMORY +2 

AND SET R5=MAX MEMORY+2 



;MOVE HIGH ADDRESS TO RO 

.-BEGIN CLEARING THE MEMORY FROM THE TOP 

•UNTIL THE BOTTOM IS REACHED 

;SET R2 TO ENABLE PARITY MODULE CODE. 
.•ENABLE PARITY IF WANTED AND AVAILABLE. 

.-WRITE SWAPPED BAKPAT IN LOCATION SWAPAT 

LOAD R2 WITH THE OPTIONS STORED AT $SWREG 
ONLY LEAVE THE LOWER 4 BITS OF $SWREG IN R2 TO GO TO 
THE TEST * SPECIFIED CDEF AULT IS TEST*0J 



INIT SUBTEST PASS FLAG. 

SET UP $TESTN WITH THE TEST NUMBER GOING 
TO BE EXECUTED 

LOAD R1 WITH THE LOWEST LOCATION UNDER TEST 
PLACE THE ADDRESS OF THE LOWEST LOCATION UNDER 
TEST IN RO 
AND IN R3 



;GO TO THE TEST * 
.•STORED IN BITS 0-3 OF SWITCH REGI S T ER 



RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 
RELATIVE 



ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 
ADDRESS OF 



TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TEST 
TFST 



0 
1 

? 

3 

4 
5 
6 

7 

10 
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1524 001650 002204 

1525 001652 002256 

1526 001654 002530 

1527 001656 003156 
1528 

1529 
1530 
1531 
1532 



J9:02 PmoE 
BEGIN 0* 



30 

AREA 



E 3 

TESTED (♦PO) WHEN PROGRAM RELOCATES. 



SEG 0050 



TST11-T8L 
TST12-T8L 
TST13-T8L 
REL0C-T8L 



RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 
RELATIVE ADDRESS OF 



TEST * 1 1 
TEST # 12 
TEST » 13 
ROUTINE 'RELOC ' 



;R5 IS POINTING TO THE TOP OF THE MEMORY TO BE TES T :D*2 

;R4 g RO ARE POINTING TO THE L0WES1 ADDRESS OF MEMORY TO BE TESTED 



f 
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F 3 



SEC) 0031 



1 sxx 

I 533 
















1 

i ?>i 
















' 33; 
















K7i 
1 J 30 
















• JJI 
















I 330 
































I 3SU 
















15Z.1 


































































001 660 

vv I OOV 


105747 

I V J i Ji 


0004 ?0 




TSTSCP: 


TSTB 

I J "J 




001 664 


001 OOP 

vv 1 vvc 










9NE 


1 5£7 


001AM 


00Z. 7fJ 

vvH r Or 


00600? 








JSR 


1 
















1 549 


00167? 
v v i U' c 


1 1 370? 


000404 

V V V^ \J~ 




CNTSCP: 


M0VB 


1 sso 
















1 551 

1 J J 1 


















001676 


005?37 


0004 10 

VvVI 1 V 








INC 


155"5 


001 70? 


01P777 


002000 

V V C V */V 


176540 






BIT 


1 554 


001710 


001401 










BE0 


1555 


001712 


000000 






SWHALT: 


HALT 


1556 
















1557 


001 71 A 


012777 


040000 


1 76526 


TSTG0: 


BIT 


1558 


001722 


001332 










BNE 


1559 


001 724 


105202 










INCB 


1560 


001 726 


000724 










BR 



PROGRAM COMES TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND 
IF CNTRL-C TYPED GOTO E^ROR HISTORY TYPE ROUTINE . 
IF SR" 2000 (BIT 10) TMf N HALT 

IF SR= 40000 (8JT14) THEN LOOP ON TEST DEFINED BY SR BITS<3:0> 
ELSE CONTINUE TO NEXT TEST. 



3#$ENV 

CNTSCP 
PC.CHECKC 

3*$TESTN,R2 



a*$DEVCT 
#2000, aSWR 
TSTG0 



#40000. aSWR 

LOOP 

R2 

C0NT 



ARE WE RUNNING UNDER APT? 

IF SO THEN GO TO CNTSLP 

TEST FOR C0NTR0L-C AND IF TYPED GO 

PRINT ERROR HISTORY AND HALT AT FATHLT. 

PLACE THE TEST NUMBER IN THE LOWER BYTE OF R2 

SINCE THERE ARE LESS THAN 377 TESTS UPPER BYTE 

OF R2 WILL BE 0 

TELL APT WE ARE STILL RUNNING OKAY 

IS THE PROGRAM GOING TO HALT AFTER EACH TEST? 

IF NOT THEN GO TO 2$ 

HALT AT END OF TEST SWITCH SET. 

IS THE PROGRAM GOING TO LOOP ON TEST 

IF SO THEN GO TO THE STARTING OF THE SAME TES T 

GO TO fONT AND CONTINUE EXECUTING THE NEXT TEST 



f 
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1561 

1562 

1563 

1564 

1565 

1566 

156/ 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 



09:02 

TO 



PAGE 32 
TEST 



G 3 

FOR PROPER BANK SELECTION 



SEO 0032 



.-•TEST 0 



1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
16H 
1615 
1616 



*(1) 



*(2) 



*(3> 
* 



TEST FOR PROPER BANK SELECTION 
THIS TEST ASSUMES THAT THE MEMORY IS IN A STATE 
OF ALL O'S AND RO HAS THE ADDRESS OF THE LOWEST 
LOCATION UNDER TEST 

IT CHECKS FOR PROPER BANK SELECTION BY WRITING 
1'S IN A LOCATION ,',ND CHECKING FOR O'S IN THE SAME 
LOCATIONS OF OTHER 4K BANKS OF THE MEMORY 
CLE. LOCATIONS LIKE 7766 AND 27766 ETC.D 
THIS TEST ALSO CHECKS TO SEE THAT NONE OF THE NON EXIST- 
ING BANK RESPOND WHEN THEY ARE ADDRESSED 



<******••••***••**********••••••*******•••••****•**•**•*•**••*** 



001 730 
001734 
001736 
001742 

001 744 
001 750 
001752 
001 754 
001 756 
001 760 
001 762 
001 764 



001 766 
001 770 

001 776 
002000 
002000 

002006 

002010 

00201 

002016 

002020 

002022 

002030 
002032 
002034 
002040 
002042 

002044 
002050 



002054 
002056 
00206C 



105737 
001403 
004767 
000005 

012703 
010401 
010310 
020001 
001417 
005711 
001430 
02031 1 



001004 
012^67 

000403 



000404 
004224 

177777 



TSTO: 



1$: 
2$: 



000006 000042 



012767 000007 000032 
00030 1 



010046 
105237 
000407 
02031 1 
001411 
012767 

010046 
010300 
004767 
000000 
012600 

01 3706 
062701 



020105 
103736 
105737 



000010 000010 
003570 



000350 
020000 



3$: 

10$: 

4$: 



11$: 
12$: 



5$: 



000421 



TSTB 
BEQ 
JSR 
5 

MOV 
MOV 
MOV 
CMP 
BEQ 
TST 
BEQ 
CMP 



BNE 
MOV 

BR 

MOV 

MOV 

INC8 

BR 

CMP 

BEQ 

MOV 

MOV 

MOV 

JSR 

.WORD 

MOV 

MOV 
ADD 



CMP 
BLO 
TSTB 



3#$TESTN 
. + 10 

PC.SEQERR 



1177777. R3 

R4.R1 

R3.(R0) 

R0.R1 

4$ 

(R1) 

5$ 

R3.(R1) 



3$ 

#6.12$ 
10$ 

#7.12$ 

RO.-(SP) 
3#$ADERR 
11$ 

R3.(R1) 
5$ 

#10.12$ 

RO.-(SP) 
R3.R0 
PC, ERROR 

(SP)+,RO 

WSAVR6.SP 
#20000. R1 



R1.R5 
2$ 

5)#$ENVM 



.•CHECK FOR PROPER TEST SEQUENCE 

.♦ERROR* REPORT ERROR MESSAGE AND HA'.T AT FATHLT 
;******ERROR NUMBER 5****** 



R1 = ADDRESS OF LOWEST LOCATION OF MEMORY UNDER TEST 
SET ALL THE BITS AT (RO) 

IS RO POINTING TO THE SAME MEMORY LOCATION AS R1 
IN WHICH CASE CHECK FOR ALL 1'S AT (R1) 
OTHERWISE CHECK (R1) FOR ALL O'S 

IF R1 IS NOT EQUAL TO RO AND (R1) 
DOES NOT CONTAIN ALL O'S THEN 
CHECK TO SEE IF (RO) (R1) 

♦ERROR* SETUP ERROR NO. IN 12$ 
**«***ERROR NUMBER #6****** 



♦ERROR* SETUP ERROR NO. IN 12$ 
******FRROR NUMBER #7*****» 
SAVE RO ON STACK 

AN ADDRESSING ERROR IS SUSPECTED 

CHECK (R1) FOR ALL 1'S 

♦ERROR* SETUP ERROR NO. IN 12$ 
******ERROR NUMBER #10****** 
SAVE RO ON STACK 

GO TO THE ERROR SUBROUTINE 

ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 
RESTORE RO 

RESTORE THE STACK POINTER 

CAUSE R1 TO POINT TO THE SAME CHIP 

LOCATION IN THE NEXT 4K BANK OF MEMORY 

BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN R1 

COMPARE R1 WITH THE HIGHEST MEMORY 

LOCATION WHICH IS STORED !N R5 

IF R1 LESS THAN R5 THEN REPEAT THE TEST FROM 2$ 

HAS APT INHIBITED SIZING? 
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176354 
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TEST FOR PROPER BANK SELECTION 



SEC- 0033 



1 (A 7 


uvf won 


100£ ^? 




16lft 




vJC III 


000 iGG 

v W I w 


161Q 


OOP074 


001 0?6 




16?0 








16?1 


(t0?076 


0?01?7 


1 57776 


1 Oct 


oo?io? 






1^.?X 








16?4 


007104 


VLV 1 J' 


000340 


16?5 








1fi?6 

■ UlW 


00?1 10 


103755 




16?7 


00?1 1? 

Wl 1 1 L 


01 ?702 

v'l' vl 


000006 


16?8 

■ OlO 


00?1 16 


012712 

V'L' 1 L 


000 340 


1629 


0021 22 

WL 1 LL 


012742 

V ' L ' ^ L 


177714 




0021 26 


06071 2 

vUv f 1 C 




1631 


00? 1 30 

Vwl > Jv 


01 1 1 1 1 




1632 


002132 

Wl ' ~> L. 


004767 


004030 

W~ V -/v 


1633 


002136 

Wl ' i/W 


00001 1 

WW ' 1 




1634 








1635 








1636 


002140 

VvL 1 ^ V/ 


01 ?702 

V ' w * VL 


000004 

V w w~ 


1637 


002144 

Wl ' ~ ~ 


012722 

V 1 t I L L 


000006 

V W W LI 


1638 


002150 

Wl ' J v/ 


005012 

W I L 




1639 


002152 

W L < L 


005010 




1640 








1641 


002154 


062700 

WL 1 W 


020000 


1642 








1643 








1644 


002160 


020005 




1645 








1646 


002162 


103672 




1647 


002*64 


000635 




1648 








1649 









6$: 
8$: 



FSD0: 



SMI 8S 

BIT *100.iSWR 

BNE 8$ 

CM° R1 .#157776 

BHI 6$ 

CMP Rl.iWMAXMEM 

BL0 5$ 

MOV #6,R2 

MCV #340. (R2) 

MOV #5$-.-6,-(R2) 

ADD PC.(R2) 

MCV (R1).(R1) 

JSR PC.FATERR 
11 



MOV #4.R2 

MOV #6.(R2)* 

CLR (R2) 

CLR (RO) 

ADD #20000. R0 



CMP R0.P5 

BL0 1$ 

BR TSTSCP 



.•BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY) 
.HAS USER INhlBJ TED SIZING? 

.•BRANCH IF YES (DON'T TEST NON-EXISTENT MEMORY) 

.SEE IF R1 HAS CROSSED 28K B0UNDRY OF VIRTUAL ADDRESS 
;IN WHICH CASE GO TO 6$ 

.■SHOULD BE LEFT AS IS FOR 30K SYSTEMS (WHICH USE 16* CHI 
;IS R1 LOWER THAN THE MAXIMUM AVAILABLE 
.•MEMORY ? 

;IF SO THEN GO TO 5$ 

.•MAKE R2 POINT TO TRAP VECT0R+2 FOR NXM 

;SET PSW TO 340 , 

.SET UP RETURN ADDRESS FROM TRAP TO 5$ , 

; TRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP* 
; *ERR0R* REPORT ERROR MESSAGE AND HALT AT FATHLT 
; ******ERR0R NUMBER 11****** 



.-RESTORE TRAP VECTOR 



CAUSE RO TO POINT TO THE SAME CHIP 

LOCATION IN THE NEXT 4K MEMORY BANK 

BY ADDING 1 TO THE 14TH BIT OF ADDRESS IN RO 

COMPARE RO WITH THE HIGHEST MEMORY 

LOCATION WHICH IS STORED IN R5. 

IF R0 LESS THEN REPEAT THE TEST 



/ 















I 3 
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T1 


CHECK 


DI/DO LINES 




SEO 0034 


1650 


















1651 








.••TEST 


1 


CHECK DI/DO LINES 




1652 












THIS TEST CHECKS 


THE DAT I /DA TO LINES BY Shi F TING 




1653 










• * 
* 


A 1 IN THE WORD DIRECTION 




1654 


















1655 


002166 


122737 


000001 


000404 TST1: 


CMPB 


»l.S*»TtSTN ; 


CHECK FUR PROPER TEST SEQUENCE 




1656 


















1657 


















1658 


002174 


00H03 






BEO 


.♦10 






1659 


002176 


004767 


003764 




JSR 


PC.SEGERR ; 


•ERROR* REPORT ERROR MESSAGE AND HALT AT 


FATHLT 


1660 


002202 


000012 






12 


* 


••••••ERROR NUMBER 




1661 


















166? 


002204 


012700 


000001 


1»: 


nuv 


#1 ,R0 






1663 


002210 


010002 






MOV 


R0.R2 


SEi R2 1 




1664 


002212 


010011 




2$ : 


MOV 


R0.(R1) 


MOV 1 AT LOCATION fRI ) 




1665 


002214 


02001 1 




3»: 


run 

CMP 


RO.(RI) 


COMPARE R1 WITH THE CONTENTS OF LOCATION 


(R1) 


1666 


002216 


001403 






BEO 


4$ 






1667 


002220 


004767 


003404 




JSR 


PC. ERROR ; * ERROR* REPORT ERROR MESSAGE 




1 668 


002224 


00001 3 






15 


• ••••••error NUMBER 13****"* 




1669 


















1670 


















1671 


002226 


005702 




/ c . 

*»». 


T C T 


R2 


;ARE WE SHIFTING A 0 IN DA T A DIRECTION? 




1672 


002230 


001406 






BEO 


5* 


•IF SO THEN GO TO 5$ 




1673 


002232 


006300 






A C 1 

ASL 


R0 


•SHIFT THE 1 BROUGHT IN AT 1$ IN 




1674 














•DATA DIRECTION 




1675 


002234 


103366 






BCC 


2$ 


;iF THE 1 HAS NOT BEEN SHIFTED THRU 




1676 














•THE 16 DATA BITS THEN REPEAT FROM 2$ 




1677 


002236 


005002 






CLR 


R2 


• INITIATE SHIFTING OF 0 IN DATA DIRECTION 




1678 


002240 


012700 


177776 




MOV 


#1 77776. R0 






1679 


002244 


000762 






BR 


2$ 






1680 


















1681 


002246 


000261 




3»: 


SEC 




•SET C BIT 




1682 


002250 


006100 






R0L 


R0 


;SHIFT A 0 16 TIMES IN DATA DIRECTION 




1683 


002252 


103757 






BCS 


2$ 


;IF THE 0 HAS NOT BEEN SHIFTED THRU 




1684 














; THE 16 DATA BITS THEN RFPEAT FROM 2$ 




1685 


002254 


062701 


02C000 




ADD 


#20000. R1 


.•OTHERWISE GO TO THE NEXT BANK OF 




1686 














;4K MEMORY AND REPEAT THE TEST 




1687 


002260 


020 1 05 






CMP 


R1.R5 






1688 


002262 


1 03750 






BL0 


1$ 






1689 


002264 


000737 




END1: 


BR • 


END0 






1690 














» 
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1 AQ1 
























1 AO/. 








1 ao*; 

I OVj 








1 A OA 








1 AQ7 








1 AQft 








1 AQQ 


oo??aa 

UUc cOO 


1 ??777 

I CC' J' 


noooo? 
uuuuuc 


1 700 
I ' UU 








1 701 


oo??7£ 

\J\JCCt M 


001 £07 
UU 1 Huj 




1 70? 
I f Uc 


oo??76 


004 767 

UU 1 * (Of 

00001 4 

JUUU 1 


00766£ 


1 707 


oo?70? 

UUc JVC 




1 70£ 
t r Um 








1 705 


oo?704 

UUc Jut 


01 7700 
u i j' uu 


UUU-J 1 D 


1 706 


oo?7i o 

UUc J I u 


1 100?1 

I 1 UUc 1 




1 707 

I f U ' 


oo?7i ? 

UUc J 1 c 


1 1 77?1 

1 1 J(C 1 


00071 7 


1 70P 


002316 


0?0105 

UCU 1 »/ J 




1 700 


oo?7?o 

w/ JCv 


107771 

1 UJ 1 I 1 




1 71 0 








1 71 1 

1 r 1 1 


on???? 

UUC Jc c 


0?004 1 




1 71? 








1717 


oo?7?4 

VJUC JC*t 


\J\J It IU 




1 714 


00? 526 

vvc JCV 

002372 

VVL J-JC 


062701 

VVL < V 


000002 

vvvvvc 


1 71 5 


123741 


00031 7 

VVV-/ 1 f 


1 716 


002336 


001402 

V V 1 ~VL 




1 71 7 


002340 


120041 




1718 


002342 

VV C -J"TC 


001 002 

V V 1 VVC 




1 719 


002344 


105237 


000301 

VVV-JV > 


1720 


002350 

vvC J J\J 


042701 

v*t C ' v I 


000001 

V V V V V P 


1 721 

I ' C 1 


002354 

VUL J J** 


004767 


003250 

V V -JC w 


17?? 


002360 

VVC J\J\J 


00001 5 

VVVV 1 J 




1 723 








1 724 
1 / c"* 


002762 

UUC JUC 


020104 

UC \) 1 U*1 




1 725 

1 * C J 


002 764 

vvC JVJH 


101 356 




1726 


002366 

V V (_ W W 


000337 


000316 


1727 


002372 


001 744 




1/28 








1729 


002374 


000733 




1750 








1731 








V32 
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T2 TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

•-ft************************************************************** 

••TEST 2 TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

;*(!) THIS TEST CHECKS THE MEMORY FOR THE CAPABILITY 
;* OF HOLDING 1'S AND O'S BY WRITING A BACKGROUND 

;* OF BAXPAT AND READING IT 

;*(2) MEMORY IS WRITTEN USING A BVTE AT A TIME 

;*(3) STEPS 1 ft 2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 
--ft************************************************************** 



SE0 0035 



TS T 2: CMP8 *2.a*$TESTN 



1$: 



2%: 



4$: 
6$: 



8$: 



END2: 



3EQ 
JSR 
14 

MOV 

M0V8 

M0V8 

CMP 

BL0 

CMP 

BEG 

ADD 

CMP8 

BE-3 

CMP8 

BNE 

INC8 

BIC 

JSR 

15 

CMP 
8HI 
SWAB 
BEQ 

BR 



. + 10 

PC.SEQERR 



.•CHECK FOR PROPER TEST SEQUENCE 



;*ERR0R« REPORT ERROR MESSAGE AND HALT AT FATHLT 
; ******ERR0R NUMBER 14****** 



a*BAKPAT.kO 
R0«(R1>+ 

S»*8AKPAT*1 . (R1)+;WRITE THE MEMORY WITH THE WORD STORED IN BAKPAT 

R1.R5 

1$ 

R0.-(R1. V ;TEST THE MEMORY TO SEE IF IT CONTAINS 

; THE WORD STORED IN BAKPAT 

8$ 

#2,R1 

a*8AKPAT*1.-(R1). CHECK FOR BYTE SELECTION PROBLEM 
4S 

.-AGAIN CHECK FOR BYTE SELECTION PROBLEM 



R0.-(R1> 
6$ 

a*$ADERR 
*1.R1 
PC, ERROR 



R1,R4 
2$ 

a#8AKPAT 
1$ 



END1 



PREPARE TO INFORM THAT IT IS ADDRESSING ERR0P 
MAKc THE ADDRESS IN R1 EVEN 
*ERR0R* REPORT ERROR MESSAGE 
******ERR0R NUMBER 15****** 

KEEP ON TESTING THE MEMORY UNTIL 
R1 EQUALS THE LOWEST ADDRESS 
CHANGE THE DATA PATTERN 
IF THE DATA PATTERN DOES NOT HAVE LOW 
BYTE =0 THEN FALL THRU 



; THE TEST LEAVES BAKPAT LOCATION THE SAME AS IT WAS IN THE BEGINNING 
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1733 ;;****••• 

1734 ;*TEST 3 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
176* 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
]777 
1778 
1779 
1780 
1781 
1782 

1783 002510 105237 000301 9$: INC8 

1784 002514 010046 MOV 

1785 002516 010200 MOV 

1786 002520 004767 003104 ■ JSR 

1787 002524 000000 22$: .WORD 
1^88 002526 012600 MOV 



K 3 



CUAL ADDRESS TEST A 



SEO 0036 



002376 


122737 


000003 


000404 


TST3: 


CMP8 


#3,a#$TESTN 


002404 


001403 








BE0 


.+10 


002406 


004767 


003554 






JSR 


PCSEQERR 


002412 


000016 








16 




002414 


005003 








CLR 


R3 


002416 


004737 


000120 




2$: 


JSR 


PC.SffWRTMEM 


/WO/ *5"5 


AACAAO 

UU3UU<: 








LLH 




002424 


050302 






6$: 


BIS 


R3.R2 


002426 


020204 








CMP 


R2.R4 




1 A - ?/ 








BLU 


( D» 


002432 


020205 








CMP 


R2.R5 


002434 


103077 








BHIS 


20$ 


002436 


000312 








SWAB 


(R2) 


002440 


005001 








CLR 


R1 


002442 


050301 






7$: 


BIS 


R3.R1 




Aini /%/ 








run 
Lnr 


n I .n't 


002446 


103445 








BIO 


12$ 


002450 


020105 








CMP 


R1.R5 


002452 


103053 








BHIS 


15$ 


002454 


020102 








CMP 


R1.R2 


002456 


001431 








BE0 


10$ 


002460 


02001 1 








CMP 


R0.(R1> 


002462 


001437 








BE0 


12$ 


002464 


012767 


00001 7 


000032 




MOV 


#17.22$ 


002472 


0100*46 






8$: 


MOV 


R0,-(bP) 


002474 


000316 








SWAB 


(SP) 


002476 


022611 








CMP 


<SP)+.(R1> 


002500 


001003 








BNE 


9$ 


002502 


012767 


000020 


000014 




MOV 


#20.22$ 



DUAL ADDRESS TEST A 

*(1) THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A 

* BACK GROUND OF BAKPAT. 

*(2) STARTING FROM THE LOWEST LOCATION IN THE BANK THE TEST WRITES 

* LOCATION WITH SWAPPED BAKPAT 
*(3) READS THE MEMORY FOR PROPER CONTENTS 

*<4) SHIFTS A 1 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1-3 

*<5) REPEATS STEP 1-4 FOR EACH 4K BANK 
***************************************************************** 



£*$ADERR 

RO.-CSP) 
R2.R0 
PC. ERROR 

(SP)*,R0 



.-CHECK FOR PROPER TEST SEQUENCE 

.-•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
; »*****ERR0R NUMBER 16****-* 



; WRITE MEMORY WITH THE BACKGROUND STORED 
;AT LOCATION BAKPAT 

MAKE R2 POINT TO T HE MEMORY BANK POINTED BY R3 
IF R2 IS LESS THAN R4 
THEN DO NOTHING 

IF 32 IS HIGHER THAN THE HIGHEST LOCATION TO BE 
TESTED THEN EXIT THE TEST 

OTHERWISE WRITE THE COMPLEMENT OF BAKPAT IN 
THE LOCATION POINTED BY R2 



;IF R1 IS POINTING TO A LOCATION LOWER THAN R4 
;THEN GO TO 12$ 



;CHECK THE MEMORY FOR CORRECT DATA 

IF R1 IS NOT = TO R2 THEN (R1) SHOULD HAVE 

THE SAME WORD AS BAKPAT 

IN WHICH CASE GO BACK TO 12$ 

•ERROR* SETUP ERROR NO. IN 22$ 

*****«ERROR NUMBER #17****** 

PLACE RO ON THE STACK 

IF (R1) IS NOT = RO THEN SEE IF IT IS SAME 
AS A SWAPPED RO 

IF NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM 
FOR THE BITS THAT ARE DIFFERED IN RO AND (R1 ) 
OTHERWISE THERE IS DUAL ADDRESSING FOR THE 
ENTIRE WORD 

•ERROR* SETUP ERROR NO. IN 22$ 
******ERROR NUT BE R #20****** 
ADDRESSING PROBLEM IS DETECTED 
SAVE RO 

SET RO-GOOD ADDRESS FOR ERROR REPORT 
GO TO THE ERROR SUBROUTINE 

ERROR NUMBER TO BE RFPORTED WILL BE PLACED HERF 
RE Si OPE RO 
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1789 

1790 

1791 

1792 

1793 

1 794 

1795 

1796 

1797 

1798 

1799 

1 800 

1801 

1802 

1803 

1804 

1805 

1806 

1807 

1808 

1809 

1810 

1811 

1812 

1813 

1814 

1815 

1816 

1817 

1818 

1819 

1820 

1821 

182? 

1823 

1824 

1825 



002530 010011 

002532 020037 000316 

00P536 0OH11 

002540 000407 

002542 000300 

002544 02001 1 

002546 001404 

002550 012767 0000^1 

002556 000745 

002560 000300 

002562 C40301 

002564 005701 

002566 001001 

002570 005201 

002572 006101 

002574 020127 020000 

002600 103720 

002602 000312 

002604 040302 

002606 005702 

002610 001001 

002612 005202 

002614 006102 

002616 020227 020000 

002622 103700 

002624 060203 

002626 020337 000340 

002632 103673 

002634 000337 000316 

002640 001656 

002642 000654 



1 7774t 



i 3 


DUAL 


ADDRESS TEST A 






MOV 


nA iD1 \ 

RO, (HI > 


.RESTORE (Rl ) 




CnP 




; IF THE CONTROL CAME HERE FROM 1 THEN 




BEQ 


1 0« 






net 

BR 


n$ 


;RE TURN TO 1 1 % 


10$: 


<~i IAD 

SWVj 


RO 


;MAKE RO SAME AS 5WAPPED BAKPAT 




CMP 


RO. (R i > 


;JF RT - He THEN (R 1 ) SHOULD CONTAIN A WORD 








_ c f\t i a i t r\ ft iAnnrr\ r%r\ 

; EQUAL TO SWAPPED R0 




nr f\ 

BEQ 




;IN WHICH CASE 00 BACK TO 11» 




MOv 


«Oi T]t 


■ *cnonfi4 cctiid roono urn fki to* 

; "ERROR* bETUP ERROR NO. IN cc» 












ah 


oc 

B» 


; AND uO 1 0 0» 


11$: 


Ci lAO 

SWAB 


on 
HU 


;HtolOHt HU IU UAHrA 1 




Qf f 

BJC 


07 d 1 
Hi ,H 1 


-TAI/T Al IT TUC DAkll/ AhnDCCC C DDM TuC AhnDCCC TM 

. IAKL UUI IHt BANK ADDHtii r HUH 1 Ht AUUKtbi IN 




T C T 

1ST 


Rl 


-TC D1 IC A TUCkl DI ATE A 1 Ikl OI 

,Jr RI J b 0 IHtN PLAtt A I IN HI 




BNE 


1 J» 


nTjiCDi it cc /~A Tn i 7t * 
, UIMtHWJbt bU 10 li» 




JNC 


H 1 




1 o» : 


RUL 


H 1 






imp 


R 1 .wtrJUUU 


• TC DI IC ICCC TUAhl A /ly QAI HUftD V 

,Ir HI lo LE6b IHAN A UK BOUNUnT 




BLO 


/» 


. TUCkl DC DC A T C DAM "?C 

; IHtN HtPEAl rHUH (» 


I 0»: 


CI IAD 

5WAB 


f DO ^ 


• DCCTDDC fD?\ TCi DAlyDAT 

.HtolUnt \Hc) IU oANrA 1 


1 o» : 




n? DO 


. TAt-r HI IT TUC QAMIt' ArsrvDCCC CDnM TUC APihDCCC 

; lAKt UUI IHt OANN AUUKtbi r HUH 1 Ht AUUHtoo 








• CTDDCh flu D*5 

.olUHtU IN H<: 




T C T 
T5T 


R2 


. IC DO — A TUCM MAV/C A 1 TA DO 

;Jr H»c - U IHtN HUVt A I 'J Ki! 




BNE 




■ ATUCDllfCC CCi TA 1 DC 

.UIHtHWJot bU IU \o9 




i Kir 
INI 


H<: 




1 at ■ 


NJL 


H* 7 


• CUICT A PJWC T KJ TUC AhhDCCC I (ADrv 

;3HJrl A UNt JN I nt AUUHtiJ WUHU 




r mo 
I HP 




• IC TUC AhnDCCC TM DO MADC TUAKJ TUC DnilMf^DV 

, jj IHt AUUKtoj IN He nUHt IHAN IHt DUUNUHT 






• re Lv 




□i n 
OLU 




• ic wf . r tucaj cx\ Tn At 

, J r iMU I I HtN UU I U 0* 




ADU 




-ATUCDUICC MAf C D7 DDIMT Tfl TUC AlCVT QAKJk* 
.UIHtHWJjt rlANt nj KU1NI IU IHt NtAl ^ ♦^ r3>*NFs 




run 

I HP 




• i c oi i c da i hjt i my: Tn a n AMf tua t ; c i chjpd 

,Ir n? lo rUJNIJ NU 1 U A HANK. 1 HM 1 lo L UWC n 








- TUAA1 MAVMCM 

; IHAN nAAntn 




OLU 


4$ 


-THFN RPPFAT FROM 


20$: 


SWAB 


a*8AKPA T 






BEQ 


TST3 


; REPEAT THE TEST WITH SWAPPED BAKPAT 0NLV IF 








; THE LOWER BYTE OF BAKPAT IS 0 


END 3: 


BR 


END2 





SEO 0037 
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;*TEST A 

;*(1) 

- * 

- • 
« 

- - »»*»»»**»»» 

000*04 T<T4: CMP8 



1826 






1827 






1828 






1829 






1830 






1831 






1832 


002644 


122737 


1833 


002652 


001*03 


1834 


002654 


004767 


1835 


002660 


000022 


1836 






1837 


002662 


005003 


1838 


002664 


010100 
005703 


1839 


002666 


1840 


002670 


001*01 


1841 


002672 


005100 


1842 


002o74 


010021 


1843 


002676 


020105 


1844 


002700 


1037/1 


1845 






1846 


002702 


020041 


1847 


002704 


001405 


1848 


002706 


105237 


18*9 






1850 


002712 


00*767 


1851 


002716 


000023 


1852 






1853 


002720 


010100 


1854 
1855 


002722 


162700 


002726 


005703 


1856 


002730 


001*01 


1857 


002732 


005100 


1858 


002734 


02010* 


1859 


002736 


101 361 


1860 


002740 


112737 


1861 


002746 


005103 


1862 


002750 


0013*5 


1863 






1864 


002752 


000733 


1865 







00000* 
003306 



1$: 



2S: 



3$: 



000301 
002712 

000002 

000001 000306 



*$: 



5$: 



END* : 



BEO 
JSR 
22 

CLP. 
MOV 
TST 
BEO 
COM 
MOV 
CMP 
BLO 

CMP 
BEO 

INC8 

JSR 
23 

MOV 

SUB 

TST 

BEQ 

COM 

CMP 

BH1 

M0V8 

COM 

BNE 

BP 



M 3 



)RESS TEST B 



SEO 0038 



DUAL ADDRESS TEST 8 

THIS TEST CHECKS FOR DUAL ADDRESSING BY WRITING 
AND READING THE ADDRESS IN THE LOCATION AND THEN 
WRITING AND READING ADDRESS COMPLEMENT 
►**»******»»»**»»»**»*****»******«***»*«»****«**«» 



#*.a*STESTN 
.♦10 

PC.SEQERR 



R3 

Ri.RO 
R3 
2$ 
RO 

R0.(R1>* 

R1.R5 

1$ 

R0.-(R1) 
4$ 

a*$ADERR 
PC, ERROR 



R1 ,R0 

#2.R0 

R3 

5$ 

RO 

R1.R4 
3$ 

#1,iVrPASFLG 

R3 

1$ 

END3 



; CHECK FOR PROPER TEST SEQUENCE 

;*ERROR* REPORT ERROR MESSAGE AND HAL T AT FATHLT 
.ERROR NUMBER ?2****** 



IF R3 IS NOT 0 THEN STORE THE ADDRESS 

IN THE LOCATION 

OTHERWISE STORE COMPLEMENT 

OF THE ADDRESS 

UNTIL THE HIGHEST MEMORY LOCATION IS REACHED 



; CHECK THE LOCATION FOR THE CORRECT CONTENTS 

;THIS IS PROBABLY ADDRESS PROBLEM RATHER THAN 
;eiT PROBLEM 

; * ERROR* REPORT ERROR MESSAGE 
;******ERROR NUMBER 23****** 



.-CHECK THAT THE ADDRESS IS STORED AT 
.•LOCATION IF R3 IS NOT 0 
.•OTHERWISE CHECK FOR 
; ADDRESS COMPLEMENT 



SET PASFLG FOR ERROR REPORT. 

COMPLEMENT THE CONTENTS OF R3 

REPEAT TST3 IF R3. IS NON 0. ENABLING ADDRESS 

COMPLEMENT TO BE WRITTEN AND READ. OTHERWISE FALL THRU 



N 3 
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SfO 003° 



1866 






1867 






1868 






1869 






1870 






1871 






1872 






1873 






1874 






1875 






187o 






1877 






1878 






1879 






1880 


002754 


122737 


1881 






1382 


002762 


001403 


1883 


002764 


004767 


1884 


002770 


000024 


1885 






1886 


002772 


004 73 7 


1887 






1888 


002776 


020041 


1889 


003000 


001403 


1890 


003002 


004767 


1891 


003006 


000025 


1892 






1893 


003010 


000300 


1894 


00*012 


010011 


1895 


003014 


021100 


1896 


003016 


001403 


189 7 


003020 


004767 


1898 


003024 


000026 


1899 






1900 






1901 


003026 


000300 


1902 






1903 


0030*0 


001023 


1904 






1905 






1906 






190 7 






1908 






1909 






1910 






1911 


003032 


005703 


1912 






1Q13 






1914 






1915 






1916 


003034 


001023 


1917 


003036 


062701 


1918 


003042 


020105 


1919 






1920 


003044 


103006 


1921 


003046 


020011 



• TEST 5 MARCHING 1'S AND O'S 

;*(1) THIS TEST WRITES A BACK GROUND OF THE WORD STORED 

- • AT BAKPAT 

)*(2) READS EVERY LOCATION FOR CORRECT DATA. SWAPS BYTES 

;• AT THE LOCATION AND PROCEEDS IN MAX. TO MIN 

;* DIRECTION OF MFMORY LOCATIONS. 

;*<3) READS EVERY LOCATION FOR SWAPPED BAKPAT PATTERN 

WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS 

;* IN MIN. TO MAX. DIRECTION 

;*(4> REPEATS STEP 2 GOING IN MIN. TO MAX. DIRECTION 

;*<5) REPEATS STEP 3 GOING IN MAX. TO MIN. DIRECTION 

■••••ft******************************************* 



000005 000404 TST5: CMP8 *5.a*$TESTN 



0031 76 



000120 



1 $: 
2$: 

3$: 



002604 



4$: 



BEQ 
JSR 
24 

JSR 

CMP 
BEQ 

JSR 
25 

SWAB 
MOV 
CMP 
BEQ 

JSR 
26 



SWAB 
BNE 



.♦10 

PCSEQERR 



PC.a*WRTMEM 

R0,-(R1> 
3$ 

PC.EtfROR 



RO 

R0.(R1) 
(R1 ) ,R0 
4$ 

PC, ERROR 



RO 
9$ 



5$: 



6$: 



7$: 



TST 



BNE 
ADD 
CMP 

BHIS 
CMP 



R3 



10$ 

#2.R1 

R1.R5 

8$ 

R0.(R1) 



.-CHECK FOR PROPER TEST SEQUENCE 



;*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHL T 
; ******ERROR NUMBER 24****** 

GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
WORD STORED IN BAKPAT 

READ THE CONTENTS OF LOCATION POINTED BY R1 
TO SEE IF iT HAS THE SAME VALUE AS RO 
•ERROR* REPORT ERROR MESSAGE 
******ERROR NUMBER 25****** 



;SWAP THE BYTES AT (R1) 
.-READ (RD FOR CORRECT VALUE 

;*ERROR* REPORT ERROR MESSAGE 
; ******ERROR NUMBER 26****** 



SWAP THE BYTES OF THE REGISTER 
CONTAINING BACKGROUND PATTERN 
IF THE LOWER BYTE OF THE REGISTER 
IS NOT 0 THEN THE PROGRAM IS READING 
THE MEMORY TO CON T AIN A BACK GROUND OF 

;BAKPAT AND WRITING THE SWAPPED WORD 

;IN WHICH CASE GO TO 9$ 

R3 WAS 0 WHEN THE PROGRAM ENTERED 

THIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3 

IF R3 EQUAL 0 THEN THE PROGRAM IS 

READING/WRITING MIN. TO MAX. OTHERWISE 

IT IS GOING IN MAX. TO MIN. DIRECTION 

IF R3 IS NOT CLEAR THEN GO TO 10$ 

OTHERWISE ADD 2 TO THE CONTENTS OF R1 

COMPARE R1 WITH THE MAX. MEMORY LOCATION TO 

BE TESTED 

IF R1>R5 THEN GO TO 8$ OTHERWISE 
READ (R1) FOR THE CORRECT DATA 
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B 



T5 



1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1*51 



003050 001757 

003052 004767 002552 

003056 000027 

003060 000753 

003062 105237 000306 

003066 000300 

003070 001742 



003072 005103 
003074 010401 
003076 000763 



003100 005703 
003102 001353 



003104 020104 

003106 101333 

003110 1 05237 000306 

003114 000300 

003116 001753 



003120 000714 



MARCHING 1*S AND O'S 
BEO 3S 

PC, ERROR 



8$: 



JSR 

27 

BR 
INC8 
SWAB 
BEQ 



9$: 



10$: 



END5: 



TST 
BNE 



CMP 

8HI 
INC8 
5WA8 
BEQ 



BR 



3$ 

3JPASFLG 

RO 

2$ 



COM R3 
MOV R4.R1 
BR 7$ 



R3 
5$ 



R1.R4 
2$ 

iWPASFLG 

RO 

7$ 



END A 



WRITE COMPLEMENT OF THE DATA FOUND AT (R1 ) 
AND REPEAT UNTIL R1 > R5 
♦ERROR* REPORT ERROR MESSAGE 
ERROR NUMBER 27****** 



IF THE LOWER BYTE OF RO IS ALL O'S 
THEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT 
AND READING BAKPAT GOING FROM MAX. TO MIN. [PASFLG=4] 
OTHERWISE CLEAR RO 

PUT THE LOWEST TESTING ADDRESS IN R1 

AND BEGIN READING O'S, WRITING TS AND 

READING TS IN MIN. TO MAX. DIRECTION CPASFLG=33 

IF R3 IS NON 0. I.E. PASFLG=3 

THEN READ BAKPAT, WRITE 

SWAPPED BAKPAT AND READ SWAPPED BAKPAT 

IN MIN. TO MAX. DIRECTION 

OTHERWISE TEST IS PROCEEDING IN MAX. TO 

MIN. DIRECTION. 

KEEP ON LOOPING UNTIL R1=R4 



IF RO SWAPPED HAS LOWER BYTE=0 

THtN READ BAKPAT SWAPPED, WRITE BAKPAT, 

AND READ BAKPAT GOING FROM MIN. TO MAX. 
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CELLS' 



C 4 
VOLATILITY TEST 



Seo 0041 



ITJ£ 








Itjj 








1 OC/ 








1 C^f 
I T5 j 








IT50 








1 0»\7 
I TJf 








I t5o 








I tjt 








1 Q/L A 
1 70V 








1 0A 1 
1 TO 1 








1 OA5 
ItOc 








I TO J 








1 0AA 
I TO** 








I "63 








I TOO 








1QA7 

I TO' 








1 0AS 
I TOO 


0071 55 

UU j 1 cc 


1 55777 

I CC ' J' 


00000A 
uuuuuo 


P TOT 








1070 








1071 


0071 70 


001 £07 
UU I tUJ 




1 Q75 
I Tf c 


0071 75 

UuJ I JC 


004 7A7 

UUH ' O ' 


007070 

UU JvJv 


1Q77 


0071 7A 


000070 

UUUUJU 




1 Q74 

1 T r *t 








1Q75 


007140 

UUJ 1 **U 


004777 

UU** r J f 


0001 50 

UUU 1 cu 


107A 

I Tf O 








1Q77 

1 T r r 


007144 


005077 


00070A 

vvvJvU 


1Q7R 
I Tr O 


0071 so 

WJ 1 JU 


010407 




1070 

I 7/7 


0071 *»? 

Wj I JC 


010401 

U 1 U*tU 1 




10R0 

1 TOW 


0071 *>4 

vUJ I J** 


05001 1 




1QR1 

I TO l 


0071 *>a 

UUJ I JO 


001407 




1QR? 




00£ 7*7 

J\JH I Of 




I TO J 


007 l A4 

UUJ 1 OH 


000071 

UUUUJ 1 




1 QP/ 
I TO** 








1 TO 7 


0071 AA 

UUJ 1 uu 


OA? 701 

UOC ' U I 


00000? 


10RA 

( TOO 


0071 75 

UUJ 1 l c 


05010S 

UCU 1 U J 




1QR7 

I TO' 


0071 74 

UUJ 1 I H 


1077A7 

I UJ' Of 




iQRR 
I TOO 


0071 7A 

UUJ I ' u 


1 7?777 

1 JC » J' 


000001 


1 QRQ 

1 TOT 


007^04 


001005 

UU 1 uuc 




I 77V 


oo7?oa 

UU JtvO 


10S577 

I U JC J ' 


000 70 A 

\J\J \J JvU 


1001 

I 77 I 








100? 

1 77C 


on7?i? 

UU Jc I c 


05070*1 

UCU JU J 




1 TT J 


UU JC 1 ** 


10701? 

I U JU f c 




1 QQJ. 
I 7TH 


007? 16 

UU JC 1 D 


01?70? 

U 1 Cr UC 


07777A 

U J r r f O 


1 77J 


007??? 
uuJccc 


00071 7 

UUU J 1 J 




1 TTO 


007554 


00*i 705 




1007 

! TT ' 


007??A 
uujcco 


001 775 

UU I Ji J 




10QA 

I TTO 


007570 

UU Jc JU 


0107*57 

U I vJJf 


000754 

UUU JJ1 


1 OOQ 

1 TTT 


007? 74 

UU JC JH 


OA? 70 7 

UUC fUJ 


0?0000 


2000 








2001 








2002 


003240 


000744 




2003 


003242 


105237 


000306 


2004 


003246 


000337 


000316 


2005 


003252 


001732 




2006 


003254 


000721 





;*TEST 6 CELLS' VOLATILITY TEST 

*<1) THIS TEST WRITES THE MEMORY WITH A BACK GROUND OF BAKPAT 

*<2) WITH PASFLG=0 THE TEST READS THE MEMORY FOR BAKPAT 

* AND THEN INCREMENTS PASFLG 

*(3) IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR 

* OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT 
*(4) REPEATS STEP 3 WITH X=X+4K UNTIL END OF MEMORY IS ENCOUNTERED 
*(5) IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO 

* BAKPAT AND WITH PASFLG=2 IT READS MEMORY FOR ALL 

* SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3 
*(6) REPEATS STEPS 3 AND 4 READING THE MEMORY FOR SWAPPED 

* BAKPAT INSTEAD OF BAKPAT. 

•'A************************************************************* 



TST6: 



CMP8 #6.3#$TESTN 



.-CHECK FOR PROPER TEST SEQUENCE 





BEO 


.♦10 






JSR 


PC.SEOERR 


; *ERR0R* REPORT ERROR MESSAGE AND HALT AT FATHLT 




30 




; ******ERR0R NUMBER 30****** 


RPT6: 


JSR 


PC.a*WRTMEM 


;G0 TO WRITE THE MEMORY WITH A BACKGROUND OF THE 








;W0RD STORED AT LOCATION BAKPAT 




CLR 


ifPASFLG 




1$: 


MOV 


R4,R3 


;SET R3 


2$: 


MOV 


R4.R1 


;AND R1 TO THE STARTING ADDRESS OF MEMORY UNDER TEST 


3$: 


CMP 


R0.(R1) 


.-CHECK (R1) FOR CORRECT DATA 




BEO 


4$ 






JSR 


PC. ERROR 


;* ERROR* REPORT ERROR MESSAGE 




31 


;******ERR0R NUMBER 31****** 


4$: 


ADD 


#2.R1 


.•INCREMENT R1 BY 2 




CMP 


R1.R5 


.-SEE IF R1 HAS REACHED THE MAX. OF MEMORY 




BLO 


3$ 






BITS 


#1.a*PASFLG 


.•CHECK TO SEE IF PASFLG=0 OR 2 




BNE 


5$ 


;IN WHICH CASE INCREMENT PASFLG COUNTER BY 1 




INC8 


ftWASFLG 


5$: 


CMP 


R3.R5 


;SEE IF R3 HAS REACHED THE MAX. OF THE MEMORY 




BHIS 


7$ 






MO/ 


#37776, R2 


.-WRITE INTO 1 LOC FOR >2MS (ABOUT 100MS) 


6$: 


SWAB 


(R3) 






DEC 


R2 






BNE 


6$ 






MOV 


R3.a*SAVL0C 


;SAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT. 




ADD 


#20000. R3 


;BY ADDING 1 TO THE 14TH ADDRESS BIT CAUSE 






;R3 TO POJNT TO A LOCATION IN THE NEXT 








;4K BANK OF MEMORY 




BR 


2S 


7$: 


INCB 


a#PASFLG 


.MAKE PASFLG=2 




SWAB 


a#8AKPAT 


;IF BAKPAT IS NOT BEING SWAPPED FOR THE 2ND 




BEO 


RPT6 


.-THEN GO BACK TO THE LOCATION RPT6 


END6: 


BR 


END5 
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T7 


SHIFTING DIAGONAL 


SEQ 0042 


2007 








•-«*»***»*******»***********»*******************»»*********»*»*»* 


?008 








-•TEST 


7 




SHIFTING DIAGONAL 


2009 


















2010 












•*(1> 


THIS TEST WRITES 


THE MEMORY WITH A BACKGROUND OF BAKPA1 


2011 












•*(2> 


IT WRITES A DIAGONAL OF SWAPPED BAKPAT THROUGH EACH MEMORY BANK 


2012 












•(3) 


READS THE MEMORY 


FOR CORRECT DATA 


cU I j 












•*(4> 


SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE 


20H 














DIAGONAL HAS BEEN SHIFTED 64 TIMES 


2015 












•*(5) 


WRITES A BACKGROUND OF SWAPPED BAKPAT , A DIAGONAL OF 


2016 












• * 


BAKPAT AND REPEATS FROM STEP 3 


2017 








--•A************************************************************* 


2018 


003256 


122737 


000007 


000404 TST7: 


CMP8 


*7.3*$TESTN 


CHECK FOR PROPER TEST SEQUENCE 


2019 
2020 


003264 


001403 






BEQ 


.+10 




2021 


003266 


004^67 


002674 




JSft 


PC.SEQERR 


•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 


2022 


003272 


000032 






32 


* 


******ERROR NUMBER 32****** 


2023 


















2024 


C03274 


005037 


000306 


2$: 


CLR 


3*PASFLG 




2025 


003300 


010337 


000304 




MOV 


R3.i*LOWBNK ;L0WBNK CONTAINS ADDRESS OF THE LOWEST LOCATION 


2026 














;IN THE 4K BANK THAT CAN BE TESTED 


2027 


003304 


010302 






MOV 


R3,R2 




2028 


003306 


052702 


017777 




BIS 


#17777,R2 


R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK 


2029 


003312 


005202 






INC 


R2 


ADD 1 TO POINT IT TO NEXT BANK 


2030 


003314 


001402 






BEQ 


3$ 


BRANCH IF ZERO (IT MUST BE A 30K SYSTEM) 


2031 


003316 


020502 






CMP 


R5,R2 




2032 


003320 


103001 






BHIS 


4$ 


IF R2 IS GREATER THAN R5 THEN GO TO 4$ 


2033 


003322 


010502 




3$: 


MOV 


R5,R2 


NOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCATION 


20 34 
















•THAT CAN BE TESTED 


2035 


003324 


010337 


000302 


4$: 


MOV 


R3,a*STRTDI I 


■LOAD STRTDI WITH THE STARTING ADDRESS OF THE 


2036 
















•DIAGONAL 


2037 


003330 


01 3701 


000304 




MOV 


<4*L0W8NK,R1 


•R1 IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K 


2038 
















;BANK 


2039 


003334 


013700 


000316 


6$: 


MOV 


a*8AKPAT.R0 


; STORE THE CONTENTS OF BAKPAT IN RO 


2040 


003340 


020103 






CMP 


R1 .R3 


•IS R1 POINTING TO A LOCATION IN THE DIAGONAL ? 


2041 


003342 


001010 






BNE 


10$ 


•IF NOT THEN GO TO 10$ 


2042 


003344 


062703 


000002 




ADD 


#2,R3 


•THE FOLLOWING CODE IS USED TO PLACE THE 


2043 


003350 


032703 


000176 




BIT 


#176.R3 


•ADDRESS OF THE NEXT LOCATION IN THE DIAGONAL 


2044 


003354 


001402 






BEQ 


8$ 


;IN R3 


2045 


003356 


062703 


000200 




ADD 


#200 ,R3 




2046 


003362 


C00300 




8$: 


SWAB 


RO 


Diagonal will contain swapped background pattern 


2047 


003364 


132737 


000001 


000306 10$: 


BIT8 


#1,a*PASFLG 


: CONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE 


2048 














•MEMORY IS BEING WRITTEN AND IT WILL BE ODD 


2049 
















;IF IT IS ONLY BEING READ 


2050 


003372 


001001 






BNE 


12$ 


;IF IT IS BEING READ ONLY THEN GO TO 12$ 


2051 


003374 


010011 






MOV 


R0,(R1> 


■OTHERWISE WRITE THE MEMORY WITH THE CONTENTS 


2052 














OF RO 


2053 


003376 


02001 1 




12$: 


CMP 


R0.CR1) '. 


•CHECK THE LOCATION POINTED BY R1 TO CONTAIN 


2054 














•PROPER DATA 


2055 


003400 


001403 






BEQ 


14$ 


■IF IT IS OK THEN GO TO 14$ 


2056 


003402 


004767 


002222 




JSR 


K, ERROR 


; *ERROR* REPORT ERROR MESSAGE 


2057 


003406 


000033 






33 


•***»**ERROR NUMBER 33****** 


2058 


















2059 


003410 


062701 


000002 


14$: 


ADD 


#2.R1 


CAUSE R1 TO POINT TO THE NEXT MEMORY LOCATION 


2060 


003414 


020102 






CMP 


R1.R2 


•IS IT THE END OF THE BANK ? 


2061 


003416 


103746 






BLO 


6$ 


•IF NOT THEN GO TO 6$ 


2062 


003*20 


005237 


000410 


16$: 


INC 


3*$DEVCT 


; TELL APT WE ARE STIL RUNNING OKAY 
i ______ 
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SHIFTING DIAGONAL 



2063 

20'J* 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

2072 

2073 

2C7A 

2075 

2076 

2077 

2078 

2079 

2080 

2061 

2082 



003^24 
003430 
003434 
003442 
003444 
003446 
003450 
003452 
003456 
003460 

003464 
003470 

003472 

003474 

003476 
003500 



105237 



001330 
005723 
020302 
103003 
105737 
100322 



001715 

010203 

020205 

103676 
000665 



000306 




INC8 


*»PASFLG 


000302 




MOV 


3*STRTDI,R3 


000001 000306 




91 T8 


*1.3#PASFLG 




BNE 


4$ 






TCT 








CMP 


R3,R2 






8HIS 


18S 






1 j 'O 






BPL 


4$ 


UUU 3U*» 




Mnv 

HU V 


2i* outwit px 


C J t o 










BEQ 


4S 






10V 


R2.R3 






CMP 


R2,R5 






BlO 


2$ 




END 7 -" 


BR 


END6 



LOAD R3 WITH THE STARTING ADDRESS OF THE DIAGONAL 
HAS THE READ OF THE MEMORY BEEN DONE ? 
IF NOT THEN GO TO 4$ 

ADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL 
AND UNLESS THE END OF THE BANK IS REACHED 

OR THE DIAGONAL HAS BEEN ROTATED 64 TIMES 
REPEAT FROM 4$ 

MAKE R3 POINT TO THE LOWEST LOCATION IN T HE 
IN THE BANK UNDER TEST 

AND IF THE TEST HAS NOT BEEN PERFORMED WITH THE 
SWAPPED BACK GROUND PATTERN THEN GO TO 4$ 
MAKE THE PRESENT HIGH BOUNDRY AS THE NEXT 
LOW BOUNDRY 

UNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE 
HIGH BOUNDRY FOR THE MEMORY UNDER TEST 
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2083 
2084 
2085 
2086 
2087 
2088 
2089 
2090 
2091 
2092 
2093 
2094 
2095 
2096 
2097 
2098 
2099 
2100 
2101 
210? 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132 
2133 
2154 
2135 
2136 
2137 
2138 
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T10 READ RECOVERS GALLOPING TEST/EVERY 64TH CELL 

****************************************************************** 

;*TE3T 10 READ RECOVERY GALLOPING TEST/EVERY 64 TH CELL 

*(1) THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN 

* STORED AT LOCATION BAKPAT 

*(2) TEST BEGINS AT LOWEST LOCATION BEING TESTED 

(LETS NAME IT •*') 
*(3) LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS '8*. 
*(4) SWAPS BYTES FOR LOCATION ' A" . 
*(5) READS 'A', READS '8' 

*<6) '8' = 'B'*200 (MAKES , 8'=64TH CELL I.E. 200TH OCTAL 

LOCATION FROM THE PRESENT LOCATION OF '8') 
*(7) REPEATS STEPS 5 AND 6 UNTIL '8* IS GREATER THAN THE 

* END OF THE 4K BANK OF THE MEMORY IN WHICH 'A' IS RESIDING 
*(8) A - A+2 

*(9) REPEATS STEPS 3-8 UNTILL 'A' REACHES THE END OF THE BANK 
*(10> GOES TO THE NEXT 4K BANK OF MEMORY AND REPEATS STEPS 

3-9 UNTIL THE END OF THE MEMORY 
*(11) AFTER EXECUTING THE TEST BYTES ARE SWAPPED AT 

* LOCATION BAKPAT AND STEPS 1-10 ARE REPEATED 
*(12) IN THIS TEST RO IS POINTING TO LOCATION 'A', R1 TO 

LOCATION '8'. R2 TO THE END OF THE 4K BANK IN WHICH THE 

* TEST IS TAKING PLACE AND R3 TO THE LOWEST LOCATION IN THE 

* COLUMN/ROW CONTAINING *A' AND '8' 

*(13) MOST OF THE CODE USED 8Y THIS TEST IS ALSO USED BY TEST 11 

*************************************************************** 

;JHECK FOR PROPER TEST SEQUENCE 

; *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******£PROR NUMBER 34****** 

;SET R2 TO THE LOWEST MEMORY UNDER TEST 
;MAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K 
;8ANK FOR WHICH GALLOPING WILL BE PERFOMED 
.-INCREMENT R2 BY 2 

;8R IF IT WENT TO 0 (IT MUST BE A 30K SYSTEM) 
;IF THE HIGH BOUNDRY OF THE TEST IS HIGHER THAN 

; THE MAXIMUM ALLOWED ADDRESS THEN ADJUST R2 



003502 


122/37 


000010 000404 


TST10: 


CMP8 


no.a*$TESTN 


003510 


001403 






BEO 


.+10 


003512 


004767 


002450 




JSR 


PCSEQERR 


003316 


000034 






34 




003520 


010402 






MOV 


R4. R2 


00352? 


052702 


017726 


RPT10: 


BIS 


017776.R2 


003526 


062702 


000002 % 


GALLOP: 


ADD 


#2.R2 


003532 


001402 






BEO. 


n 


003534 


020205 






CMP 


R2.R5 


003536 


101401 






BLOS 


2$ 


003540 


010502 




1$: 


MOV 


R5.R2 


003542 


005046 




2$: 


CLR 


-(SP) 


003544 


010200 






MOV 


R2.R0 


003546 


013740 


000316 


4$: 


MOV 


a*8AKPAT,-(R0) 


003552 


020003 






CMP 


R0.R3 


003554 


101374 






8HI 


4$ 


003556 


010301 




6$: 


MOV 


R3.R1 


003560 


023710 


000316 




CMP 


a*8AKPAT.(R0) 


003564 


001410 






BEO 


8$ 


003566 


010001 






MOV 


R0.R1 


003570 


013700 


000316 




MOV 


a*8AKPAT.R0 


003574 


004767 


002030 




JSR 


PC. ERROR 


003600 


000035 






35 



;WRITE THE MEMORY UNDER TEST WITH A BACKGROUND OF 
; BAKPAT 



;R3 AND R1 ARE POINTING TO ThE LOWEST LOCATION THAT 
;CAN BE TESTED IN THIS BLOCK 

.•BEFORE STARTING THE GALLOPING TEST FOR LOCATION 
;(R0) CHECK IT 
.•CONTINUE IF OK 

; OTHERWISE PREPARE TO REPORT THE ERROR 

.••ERROR* REPORT ERROR MESSAGE 
; ******ERROR NUMBER 35****** 
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2159 

2U0 

2H1 

2142 

2143 

2144 

2145 

2146 

2147 

2149 

2149 

2150 

2151 

2152 

2153 

2154 

2155 

2156 

2157 

2158 

2159 

2160 

2161 

2162 

2163 

2164 

2165 

2166 

2167 

2168 

2169 

2170 

2171 

217? 

2173 

2174 

2175 

2176 

2177 

2178 

2179 

2180 

2181 

2182 

2183 

2184 

2185 

2186 

2187 

2188 

2189 

2190 

2191 

2192 

2193 

2)94 



003602 
003604 

003606 
003610 



003614 
003616 
003622 
003624 
003626 
003632 
003636 

003640 
003642 
003646 
003650 
003652 
003654 
003660 
003664 

003666 
003670 
003672 
003674 
003702 
003704 
003710 
003714 
003716 
003720 

003722 
003730 
003732 
003734 
003740 
003742 
003744 
003746 
003750 
003754 

003*56 
003762 
003764 
003766 
003VO 
003774 
004000 
0CK0O2 



010011 
010100 

000310 
031011 



003612 020001 



001412 
021137 
001407 
010046 
013700 
004767 
000036 

012600 
021037 
001412 
010146 
010001 
01 3700 
004767 
000037 

010011 
010100 
012601 
122737 
001402 
062701 
062701 
020102 
103734 
000320 

122737 
001407 
005723 
062716 
105716 
100002 
161603 
005016 
032700 
001002 
005237 
020002 
103674 
162603 
000337 
000337 
001660 
010203 



:02 

710 



8$: 
10$: 



12$: 



000316 



000316 
001 772 



000320 



000320 
001 744 



0000 1 1 000404 14$: 
000176 

000002 16$: 



00001 1 000404 
000002 

000177 
000410 



17$: 
18$: 



000320 
000316 





u 


45 




'EAD RECOVERY GAlLOPJI 


MOV 


RO.(RI) 


MOV 


R1.R0 


SUAB 


(HO) 


BIT 


(RO) (R1) 


CMP 


R0.R1 


BEG 


12$ 


CMP 


(R1) ,a#8AKPAT 


BEO 


12$ 


MOV 


RO.-(SP) 


MOV 


a*8AKPAT,R0 


JSR 


PC. ERROR 


36 




MOV 


(SP)*,RO 


CMP 


(RO.WSUAPAT 


BEO 


14$ 


MOV 


R1 ,-(SP) 


MOV 


R0.R1 


MOV 


&*SUAPAT,RO 


JSR 


PC. ERROR 


37 




MOV 


RO. (R1) 


MOV 


R1 .RO 


MOV 


(SP)+.R1 


CHP6 


#11.a*$TESTN 


BEO 


16$ 


ADD 


0176.R1 


ADD 


#2,R1 


CMP 


R1 .R2 


8L0 


10$ 


SWAB 


(R0)«- 


CMP8 


#11 .a»$TESTN 


BEO 


17$ 


TST 


(R3)* 


ADD 


#2.(SP) 


TSTB 


(SP) 


BPL 


17$ 


SUB 


(SP).R3 


CLR 


(SP) 


BIT 


#1 77, RO 


BNE 


18$ 


INC 


MttDEVCT 


CMP 


R0.R2 


BLO 


6$ 


SUB 


(SP)+.R3 


SUAB 


aiSUAPAT 


SWAB 


a*8AKPAT 


BEQ 


2$ 


TOV 


R2.R3 



TEST/EVERY 64TH CELL >EG 0045 



.•RESTORE THE CONTENTS OF v Ri; 
.RESTORE RO 



CHECK TO SEE THAT NONE OF THE BI T S SET 
IN (RO) ARE SET IN (RD AND VICE VERSA 
THE ONLY EXCEPTION TO THIS WILL BE WHEN R0-R1 



CHECK THAT (R1) HAS BAKPAT IN IT 

SAVE RO ON STACK 
PLACE THE PATTERN WORD IN RO 
♦ERROR* REPORT ERROR MESSAGE 
**w*«r*ERROR NUMBER 36****** 

RESTORE RO 

CHECK THAT (RO) HAS SWAPPED BAKPAT IN IT 

SAVE R1 ON THE STACK 
MAKE R1 POINT TO THE FAILING tOCATION 
LOAD RO WITH THt EXPECTED RESULT IN (RD 
* ERROR* REPORT ERROR MESSAGF 
*«****ERRCP NUMBER 37****** 

RECOVER (RD FROM THE ERROR 
RESTORE RO 
AND RESTORE R1 

IS THE PROGRAM EXECUTING TEST * 11 ? 
IF SO THEN GO TO 16$ 

MAKE R1 POINT TO THE NEXT ADJACENT CELL 

AND IF R1 HAS NOT REACHED THE END OF THE BOUNDRY 

THEN REPEAT FROM 10$ 

RESTORE THE LOCATION FOR WHICH THE GALLOPING TEST 

WAS BEING PERFORMED 

IS IT TEST 11 ? 

IF SO THEN GO TO 17$ 

OTHERWISE INCREMENT R3 BY 2 

FOR EVERY ROW/COLUMN TESTED ADD 2 

UNTIL (SP) IS 200 
SUBTRACT 200 FROM R3 

AT A 64TH CALL BOUNDRY? 
BRANCH IF NO 

TELL APT WE ARE STILL RUNNING 

IF RO HAS NOT PEACHED THE END OF THE BOUNDRY 

THEN REPEAT FROM 6$ 

RESTORE SP AND R3 



IF THE LOWER BYTE OF BAKPAT IS 0 THEN REPEAT FROM 2$ 
OTHCRWISE MAKE THE PRESENT HIGH BOUNDRY AS the 
NEXT LOW BOUNDRY 
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2195 0040C 

21% 0040C 
2197 

2198 00401 

2199 00401 
2200 

2201 00401 

2202 00402 

2203 00402 

2204 00403 
2205 
2206 
2207 
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T10 READ RECOVERY GALLOPING TEST/EVERY 64TH CELL 



SEQ 0046 



020205 




CMP 


R2.R5 




001410 


- 


BE a 


END10 


;IF PREVIOUS HIGH 80UNDRY WAi THE END OF THE 
;TEST 30UNDRY THEN EXIT THE TEST 


032702 


CI 7776 


BIT 


#17776.R2 


.WAS IT A 4K BOUNDRv ' 


001 0Z5 






DOT 1 1 


;IF NUT THEN WE WFRE PERFORMING TEST 11 WITH lONG 
.•GALLOPING TEST DISABLED 










122737 


000011 000404 


CMP8 


#1'i.a*STESTN 


;IF IT IS TEST # 11 THEN GO TO REPEAT TEST 11 


001421 




8E0 


RPT11 




000635 




BR 


RPT10 


.-OTHERWISE REPEAT TEST 10 


000623 


END10: 


BR 


END7 



I 4 
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CZKMAF .P11 05-HAR-79 09:02 Til READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 



S60 0047 



2208 

2209 

2210 

2211 

2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 

2221 

2222 

2221 

222^ 

2225 

2226 

2227 

2228 

2229 

2210 

2211 

2212 

2233 

2234 

2235 

2236 

2237 

2238 

2239 

2240 

2241 

2242 

2243 

2244 

2245 

2246 

2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 



.-•TEST 11 READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 

*(1) THIS TEST WRITES MEMORY WITH BAKPA" 
•(2) THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED 
(LETS NAME IT '8') 

»(3) 'A' '8' [MOVE THE ADDRESS OF '8' TO THE POINTER FOR LOCATION 'A*! 
*(4) SWAPS BYTES FOR LOCATION *A' 
*(5) READS 'A', READS '8' 
*(6> , 8 , -'8'+2 

*(7) IF GALLOPING OPTION BIT AT SSWREG IS HIGH THEN STEPS 4 AND 5 
» ARE REPEATED UNTIL '8' REACHES THE HIGHEST MEMORY LOCATION 

OF THE 4K BANK IN WHICH 'A' IS RESIDING. THEN 'A' IS 

* DECREMENTED BY 2 AND AFTER MAKING *8' TO POINT TO THE LOWEST 
LOCATION OF THE 4K MEMORY BANK CONTAINING 'A' STEPS 3.4,5 AND 
6 ARE REPEATED UNTIL 'A* EQUALS THC END OF THE ENTIRE MEMORY 

*(8) IF GALLOPING OPTION 91 T IS NOT HIGH THEN STEPS 4 AND 5 ARE 

* REPEATED UNTJL '8' IS POINTING TO A CELL IN THE NEXT COLUMN 
IF SEQUENTIAL CELLS LIE ALONG THE ROW, OR THE NEXT ROW 

* IF SEQUENTIAL CELLS LIE ALONG THE COLUMN, AT WHICH TIME 
STEPS 2.3,4.5 AND 7 ARE REPEATED UNTIL THE END OF THE MEMORY 

*(9) TEST IS REPEATED FOR THE OPPOSITE BACKGROUND DATA 
•(107 IN THIS TEST RO POINTS TO LOCATION 'A'. R1 TO LOCATION 

* '8' . R2 TO THE HIGHEST LOCATION AND R3 TO THE LOWEST 
» LOCATION IN A 64/4K CELL BOUNDRY 

*(17) MOST OF THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST 
****»»***•*******************»*****»*******»*»**»*»**»*»**»»*»» 



004032 


122737 


00001 1 000404 


TST1 1 : 


CMP8 


#11.a#$TE 


004040 


00U03 






BEQ 


.♦10 


004042 


004767 


002120 




JSR 


PC.SEQERR 


004046 


000040 






40 




004050 


010402 






MOV 


R4.R2 


004052 


105777 


174 3 72 




TST8 


aswR 


004056 


100004 






BPL 


RPT11 


004060 


004767 


002526 




JSR 


PC.PNTMES 


004064 


046107 


000120 




.ASCIZ 


/GLP/ 


004070 


105777 


174354 


RPT11: 


TST8 


aswR 


004074 


100612 






BMI 


RPT10 


004076 


052702 


0001 76 




BIS 


#176.R2 


004102 


00061 ' 






BR 


GALLOP 



.-CHECK FOR PROPER TEST SEQUENCE 



; *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHL T 
;******ERROR NUMBER 40****»* 

.•MAKE R2 TO POINT TO THE LOWEST LOCATION 

.•UNDER TEST 

.-LONG GALLOP ENABLED? 

.-BRANCH IF NO 

.-TYPE "GLP" 

.-LONG GALLOPING ENABLED? 
.-BRANCH IF YES 
;TO RPT10 

.•OTHERWISE SET THE LOW ORDER BITS OF THE ADDRESS 
;T0 GET THE HIGH BOUNDRY 

; PERFORM GALLOPING TEST 
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2255 

2256 

2257 

2258 

2259 

2260 

2261 

2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2271 

227^ 

227*> 

2276 

2277 

2278 

2279 

2280 

2281 

2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 



09:02 PAGE 48 
T12 WORST 



CASE TESTING 'OR CORF MEMORY 



SEO 0048 



'TEST 12 WORST CASE TESTING FOR CORE MEMORY 

*(1> STARTING FROM THE LOWEST LOCATION UNDER TEST THE MEMORY 

* IS WRITTEN WITH A BACKGROUND OF BAKPAT , HOWEVER LOCATIONS 
HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS 1 6 

* 8 ~ 1 ARE WRITTEN TO A VALUE OF SWAPPED BAKPAT 
*(2; STARTING FROM THE LOWEST LOCATION THE MEMORY IS CHECKED 

* TO CONTAIN THE CORRECT DATA AS EXPLAINED IN STEPS 3 6 4. 
UNTILL THE HIGHEST LOCATE UNDEP TEST IS REACHED 

*(3> READ EACH LOCATION FOR THE CORRECT CONTENT 

*(4) COMPLEMENT THE LOCATION ANP READ iT; COMPLEMENT THE LOCATION 

* BACK TO ITS ORIGINAL VALUE AND READ IT AGAIN 
*(5) STARTING FROM THE HIGHEST LOCATION UNDER TEST REPEAT STEPS 

* 3 6 4 UNTIL THE LOWEST LOCATION UNDER TEST IS REACHED 
*(6) REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR 

* OF ADDRESS BITS 8 6 13 =1 ARE WRITTEN TO SWAPPED BAKPAT 
*(7) REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR 

* CF ADDRESS BITS 3 8 9-1 ARE WRITTEN TO SWAPPED BAKPAT 
*(8) REPEAT STEPS 1-7 WITH A BACKGROUND OF SWAPPED BAKPAT AND 

THE LOCATIONS TO BE WRITTEN TO SWAPPED BAKPAT WRITTEN TO 

* BAKPAT. 

A************************************************************** 



004104 
004112 
004114 
004120 



12273 7 000012 000404 
001403 

004767 002046 
000041 



TS T1 2: 



CMP8 
BEO 

JSR 
41 



#12,a*$TESTN 
. + 10 

PC.SEOERR 



.-CHECK FOR PROPER TFST SEQUENCE 

.-•ERROR* REPORT ERROR MESSAGE AND HA T AT FATHLT 
;******ERROR NUMBER 41****** 



004122 


012702 


000002 


MOV 


*2,R2 


.•PREPARE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 


004126 


01270^ 


000400 


MOV 


#400.R3 


; AND 8 


004132 


112737 


000001 000306 IS: 


M0V8 


*1,a*PASFLG 


.•INITIALIZE THE COUNTER FOR THE SUBTEST 


004140 


010401 


2$: 


MOV 


R4.R1 


.-PLACE THE STARTING ADDRESS OF MEMORY UNDER 






.-TEST IN R1 


004142 


01 3700 


000316 4$: 


MOV 


a#8AKPAT,R0 


.-CHECK TO SEE IF ADDRESS BIT STORED IN R2 IS SET 


004146 


030201 




BIT 


R2.R1 


004150 


001004 




BNE 


8$ 


;IF IT IS SET THEN GO TO 8$ 


004152 


030301 




BIT 


R3.R1 


.•CHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET 


004154 


001404 




BEG 


12S 


;IF IT IS NOT SET THEN GO TO 12$ 


004156 


005100 


6$: 


COM 


RO 


.-COME HERE ONLY IF EXCLUSIVE OR OF ADDRESS BITS 








.-POINTED BY R2 6 POINTED BY R3 = 1 IN WHICH 
;CASE PREPARE TO WRITE THE LOCATION 
.-WITH A COMPLEMENT OF LOCATIONS NOT MEETING 
.-THIS CONDITION 


004160 


000402 




BR 


12$ 


;COME HERE IF ADDRESS BIT POINTED BY R2 IS 1 AND 


004162 


030301 


8$: 


BIT 


R3.R1 



K 4 
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?Z00 ; CHECK ADDRESS BIT POINTED BY R3 

2301 004164 001774 BEQ 6$ ;IF ADDRESS BIT POINTED BY «R3 IS 0 THEN GO TO 6t 



L 4 
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2302 004166 132737 00000^ 000306 12$: BIT8 *2.a#PASFLG ;IS IT 2ND OR 3RD °ASS OF THE SlfiTEST ? 

2303 004174 001001 BNE 14$ ;IF SO THEN READ THE MEMORY 
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2304 

2305 

2306 

2307 

2308 

2309 

2310 

2311 

2312 

2313 

2314 

2315 

2316 

2317 

2318 

2319 

2320 

2321 

2322 

2323 

2324 

2325 

2326 

2327 

2328 

2329 

2330 

2331 

2332 

2333 

2334 

2335 

2336 

2337 

2338 

2339 

2340 

2341 

2342 

2343 

2344 

2345 

2346 

2347 



H 4 
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SEO 0051 



fW.1 7A 
wVt 1 f o 


mooi 1 

U I wv 1 I 








MOV 


R0 (R1) 


Wttwv 








14%- 


CMP 


R0 (R1) 


00£?0? 


001 £0^ 








R C Q 


16$ 




004 7A7 

UVni Of 


0014P0 

WW ■ **CU 




■ 




PC FRROR 


oo4?io 


00004? 








42 

~ c 




004212 


012746 


000002 




16$: 


MOV 


#2.-(sp; 


004216 


005100 






18$: 


COM 


R0 


oo4??o 


0051 1 1 








COM 


(R1) 


0O6??? 


0P001 1 

WC Jv • 1 








CMP 


R0 (R1) 


OOZ.??£ 


001 404 

W 1 HUH 








RFQ 


19$ 


OOZ.??f» 


006 7f\7 


001 ^76 






tSR 


PC FRROR 


004?^? 


00004 ^ 








43 




004234 


010011 








MOV 


R0.(R1> 


004236 


005316 






19$: 


DEC 


(SP> 


004 ?40 


001 ^Aft 

WW 1 JUU 








BNE 


18$ 


004?4? 


005776 








TST 


(SP) + 


004746 


ICC J ' 


000003 

www -* 


000306 




CMPFJ 


#3 3#PASFLG 


00475? 


00141? 

WW 1 " i c 








REQ 


20$ 

c w*» 


004254 


062701 


000002 

WV V WC 






ADD 


#2,R1 


004260 


020105 








CMP 


R1 ,R5 


004762 


103727 








BL0 


4$ 


004764 


105237 


000306 






INC8 


a#PASFLG 


004270 


122737 


000002 


000306 




CMP8 


#2,a#PASFLG 


004276 


001 720 








BEQ 


2$ 


004300 


162701 


000002 




20$: 


SUB 


#2.R1 


004304 


0201 04 

VL W 1 W~ 








CMP 


R1 R4 


004306 


103315 








BHIS 


4$ 


004310 

WW~ -/ 1 V 


012702 


020000 






MOV 


#20000. R2 


004314 


105237 


000307 






INCB 


3#PASFLG*1 


004 3?0 


123727 


000307 


000002 

W WW WC 




CMPB 


a#PASFLG+1 .#2 


004326 

WW^ -SC W 


103701 








BL0 


1$ 


004330 


101004 








BHI 


22$ 


004332 


012702 


000010 






MOV 


#10, R2 


004336 


006303 








ASL 


R3 


004340 


000674 








BR 


1$ 


004342 


005137 


000316 




22$: 


COM 


a#8AXPAT 


004346 


105737 


000316 






TSTB 


a#8AXPAT 


004352 


001654 








BEQ 


TST12 


004354 


000625 






END12: 


BR 


END 10 



.•OTHERWISE WRITE THE MEMORY BF0RE READING IT 
.-READ THE MEMORY FOR CORRECT CONTENTS 

.-•ERROR* REPORT ERROR MESSAGE 
; ***»**ERR0R NUMBER 42****** 



.-READ THE MEMORY AGAIN 

;*ERR0R* REPORT ERROR MESSAGE 
;******ERR0R NUMBER 43****** 

.•RESTORE THE LOCATION (R1> 

hXECUTE THE CODE FROM "8$ TWICE 
RESTORE THE STACK POINTER 
IS IT THE 3RD PASS OF THE SUBTEST ? 
IF SO THEN GO TO 20$ 

IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN 
MIN. TO MAX. DIRECTION 

HAVE WE REACHED THE MAX. ADDRESS UNDER TEST ? 
IF NOT THEN REPEAT FROM 4$ 

IF IT IS THE 2ND PASS OF THE SUBTEST 
THEN REPEAT FROM 2$ 

OTHERWISE EXECUTE THE TEST IN MAX. TO MIN. 
DIRECTION 

HAVE WE REACHED THE MIN. ADDRESS UNDER TEST ? 
IF NOT THEN REPEAT FROM 4$ 
PREPARE TO CHECK THE MEMORY WITH THE X0R OF 
ADDRESS BITS 8 AND 13 

THE SUB TEST HAS CHECKED THE XOR ONE KIND 
HAS TWO XOR COMBINATIONS BEEN CHECKED ? 
IF NOT THEN GO TO 1$ 

IF ALL THREE HAVE BEEN CHECKED THEN GO TO 22$ 
IF IT IS THE 2ND XOR COMBINATION THEN CHECK 
FOR ADDRESS BITS 3 6 8 

;IF THE TEST WAS NOT PERFORMED WITH THE SWAPPFD 

;8AKPAT THEN RE-EXECUTE THE TEST 



CZKMA MACY11 30A(1052) 05-MAR-79 09:02 PAGE 52 

CZKMAF.P11 05-MAR-79 09:02 T13 WRITE RECOVERY TEST 



N 4 



SEO 0052 



2548 






2549 






17CA 

2330 












Z552 






2553 






2554 






2355 






£536 






255/ 






T7CQ 

t?S3o 






c53V 






£?5O0 






07X1 






OTX3 

dSoc 






ota7 






t?5o4 






->T/c 
*?563 






£3oo 






37A7 






CJOO 






cxrr 






077n 






c:5/l 












0777 






077/ 






377^ 
CJfJ 






OV7A 






•5777 






•077a 
difo 


Art/ 7^a 


1 33777 


077Q 


UUh 30m 


rtrtl £A7 
\j\J I huj 


CJO\J 


nnz. 7aa 

UU*» 30O 


AAZ. 7A7 


07JI1 

trio I 


rt/v 775 


aaaaz./. 


07B0 
CJOC 






37JJ7 


AAZ.77Z. 


rti 07A3 










n/v / AA 


A1 37rtrt 


0 7OA 






37J17 
CJOI 


















07Ort 




V I U3 t »D 


07Q1 


Art/ / 


rti rt/ Z.A 


07Q3 
CJVC 


(W / in 


AAA3Z. 1 


37Q7 


Art/ / 1 3 


aaaaa«; 


-)XQ/ 




AAAAA/ 


070c 


Art/ / 1 il 

UU*»«» 1 0 






AA/./.3A 


aaaaa 1 ; 

UUOw3 


P397 


0044?? 


1 0300? 


2398 


004424 


062716 


2399 


004430 


012604 


2400 


004432 


012605 


2401 


004434 


010403 


2402 






2403 


004436 


000406 



TEST 



CONTAINS 
IS 



13 WRITE RECOVERY TEST 

THIS TEST DIFFERS FROM 0-12 IN THAT IT CONSISTS OF A SMALL TEST PROGRAM 
ACTUALLY RUNNING IN THE 4K BANK UNDER TEST. 

ThE PROGRAM IS SELF MODIFYING AND MAY BE DIFFICULT TO DEBUG. 
TO AID IN THE DEBUG, BEFORE A BANK IS ENTERED '7ST13 BNK XX" 
IS TYPED. THIS WILL ALLOW THE USER TO AT LEAST SEE WHICH MEMORY 
BANK FAILED. 

THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH 'MOV R2.-(PC>" 
AND THE OTHER 1/2 CONTAINING ' 177667". ' 177667" IS THE COMPLEMENT 
OF "JMP (RO)" INSTRUCTION. 

R2 CONTAINS "COM -(R1)" INSTRUCTION ON ENTRY TO THE BANK AND R1 
THE HIGHEST TEST ADDRESS IN THAT BANK. THE HIGHEST TEST ADDRESS 
USUALLY ON 4K BOUNDARIES. WHEN TESTING BANK 0 RELOCATED. HOWEVER 
R1 CONTAINS THE FIRST FREE TEST ADDRESS BELOW THE DIAGNOSTIC. 
IF YOU UNDERSTAND THIS SO FAR THE REST IS EASY. 
THE TEST EXECUTION IS AS FOLLOWS: 

1. THE 'MOV R2,-(PO" INSTRUCTION EXECUTES STORING 
THE CONTENTS OF R2 IN THE ADDRESS IT VACATED (DUE TO -(PC). 

2. SINCE R2 CONTAINS A "COM -(R1)" INSTRUCTION IT COMPLEMENTS 
THE HIGHEST ADDRESS UNDER TEST. THIS ADDRESS CONTAINED 
' 1 77667' ' SO AFTER THE COM -(R1) IT EQUALS 1T6 
CLEVERLY THIS IS THE "JMP (RO)" INSTRUCTION. 

3. THIS SEQUENCE CONTINUES UNTIL THE 'MOV R2,-(PC) INSTRUCTIONS 
REACH THE MIDDLE OF THE TEST BANK. THEN THE "JMP (RO) ' INSTRUCTION IS 
AND EXECUTED. RO CONTAINED THE RETURN ADDRESS BACK 
TO TEST 13. 

4. THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST. 
*************************************************************** 



000013 000404 TST13: 
001574 



CMPB 
BEQ 

JSR 
44 



#13.a»$TESTN 
.+10 

PC.SEQERR 



.-CHECK FOR PROPER TEST SEQUENCE 

; *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERR0R NUMBER 44****** 



1$: 



1 77667 



MOV 01O247.R2 .-PLACE THE OP CODE OF INSTRUCTION MOV R2.-(PC) 

;IN R2. 

MOV 01 77667.R0 .-PLACE THE COMPLEMENT OF THE INSTRUCTION 

;JMP (RO) IN RO 

.-INSURE LOWEST TEST ADDRESS TO END OF 4K SEGMENT IS MULTIPLE OF 2 
.SINCE THE TEST STORES 'MOV R2,-(PC) IN 1/2 AND 177667 IN THE OTHER 1/2 



2$: 
29$: 



30$: 



MOV 
MOV 
CLC 
ROR 
ROR 

sue 

ROR 
BCC 
ADD 
MOV 
MOV 
MOV 

BR 



R5. -(SP) 
R4. -(SP) 

R5 
R4 

R4.R5 

R5 

30$ 

#2.(SP) 
(SP)+.R4 
(SP)+,R5 
R4.R3 

28$ 



SAVE R5 

STORE LOWEST ADDRESS ON STACK 

MAKE POSITIVE BYTE COUNT OF HIGH ADDRESS 

DO SAME FOR LOWEST ADDRESS 

GET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST 

IF DIFFERENCE IS ODD THEN R4 IS AT LOWEST ADDRESS 

BRANCH IF R4 IS AT LOWEST TEST ADDRESS. 

INCREASE LOWEST TEST ADDRESS BY 2 

RESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY) 

RESTORE HIGHEST TEST ADDRESS 

PLACE THE LOWEST LOCATION UNDER TEST 

IN R3 

LEAVE LOW BITS OF R3 ALONE FIRST TIME IN CASE BANK 0 



B 
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2404 


004440 


042703 


2405 






2406 


004444 


001507 


2407 


004446 


105737 


2408 


004452 


100504 


24C9 


004454 


020305 


2410 


004456 


103102 


2411 






2412 


004460 


020527 


2413 


004464 


103002 


2414 


004466 


010501 


2415 


004470 


000407 


2416 






2417 


004472 


010301 


2418 


004474 


052701 


2419 


004500 


005201 


2420 






2421 


004502 


001402 


2422 






2423 


004504 


020105 


2424 


004506 
004510 


101401 


2425 


010501 


2426 






2427 


004512 


132737 


2428 


004520 


001101 


2429 






2430 






2431 






2432 


004522 


020304 


2433 


004524 


'03430 


2434 


004526 


105737 


2435 


004532 


001002 


2436 






2437 


004534 


012713 


2438 


00*540 


020213 


2439 


004542 


001421 


2440 


004544 


010046 


2441 


004546 


010146 


2442 


004550 


010301 


2443 


004552 


010200 


2444 


004554 


004767 


2445 


004560 


000045 


2446 






2447 


004562 


012601 


2448 


0C4564 


012600 


2449 


004566 


105737 


2450 






245 1 






2452 






2453 


004572 


001005 


2454 






2455 


004574 


0102C0 


2456 


004576 


004767 


2457 


004602 


000046 


2458 






2459 


004604 


000663 



017776 
000405 

020000 
017777 



3$: 



28$: 



BIC 

BEO 
TST8 
BMI 
CMP 
BHJS 



#17776.R3 

14$ 
a*REL 
14$ 
R3.R5 
14$ 



;IF R5 LESS THAN 20000 THEN 



31$: 



000001 000306 



32$: 
33$. 

4$: 



000307 
010247 



001050 



000306 



001026 



CMP 
BHIS 
MOV 
BR 

MOV 
BIS 
INC 

BEQ 

CMP 

BLOS 

MOV 

BITS 
BNE 



CMP 
BLO 
TST8 
BNE 

MOV 
CMP 
BEQ 
MOV 
MOV 
MOV 
MOV 
JSR 
45 

MOV 
MOV 
TST8 



BNE 

MOV 

JSR 
46 

BR 



R5.*2O000 
31$ 
R5.R1 
32$ 

R3.R1 

#17777.R1 

R1 

32$ 

R1.R5 

33$ 

R5.R1 

#1,a*PASFLG 
16$ 



R3.R4 
8$ 

a*PASFLG+1 
6$ 

#10247. (R3) 

R2,(R3) 

8$ 

RO.-(SP) 
R1.-(SP) 
R3.R1 
R2.R0 
PC. ERROR 



<SP>+, R1 
(SP)+.RO 
WPASFLG 



8$ 

R2.R0 ;SAVE 
PC. ERROR 



END 12 



SEO 0053 

; CAUSE R3 TO POINT TO THE LOWEST LOCATION 
;IN THE 4K BANK UNDER TEST 

;IF ADDRESS WENT TO 0. IT MUST BE A 30* SYSTEM 
.-ARE WE RELOCATED? 
.•BRANCH IF YES-TEST BANKO ONLY- 
;lf R3 IS HIGHER THAN 1 HE HIGHEST LOCATION 
.-UNDER TEST THEN EXIT 
ARE TESTING BANKO RELOCATED IN BANKO 
;IS HIGHEST TEST ADDRESS BELOW 4K? 
.-BRANCH IF NO 

;SET R1 TO HIGHEST TEST ADDRESS IN BANKO 



;SET R1 TO LOWEST CURRENT TEST ADDRESS 

.-SET LOW ORDER ADDRESS BITS 

.•CAUSE R1 TO POINT TO THE HIGHEST LOCATION+2 

;0F THE 4K BANK BEING POINTED BY R3 

.•BRANCH IF R1 WENT TO 0 (WHICH MIGHT 

.-HAVE HAPPENED IF TESTING A 30K LSI SYSTEM) 

.•COMPARE R1 TO HIGHEST ADDRESS UNDER TEST 

; BRANCH IF WITHIN RANGE 

;SET R1 TO THE MAXIMUM AVAILABLE MEMORY 

;IS THE LOWEST BIT OF LOCATION PASFLG 
.-SET? IN WHICH CASE BACK GROUND HAS 
.■ALREADY BEEN WRITTEN AND WRITE RECOVERY 
.-TEST IS BEING PERFORMED 

.•OTHERWISE WRITE THE BACKGROUND 

.•DEFINED AT STEP 3. 

;IS THE TEST JUST DOING READ. I.E. 

;IS THE PASFLG* 1 LOCATION NON ZERO? IF SO 

; THEN GO TO 6$ 

.•WRITE THE LOCATION WITH T HE OP CODE FOR MOV R2.-(PC) 
.-READ (R3) TO CONTAIN CORRECT DATA 

.-SAVE RO 

;AND R1 ON THE STACK 

.-SET R0= GOOD DATA FOR ERROR PRINTOUT 
; * ERROR* REPORT ERROR MESSAGE 
; ******ERROR NUMBER 45****** 

.•RESTORE R1 
; AND RO 

;IF PASFLG IS 0 AND THE MEMORY DOES NOT HAVE 
; THE PROPER DATA THEN WE DON'T WANT TO GO AND 
.•EXECUTE THE INSTRUCTIONS STORED IN MEMORY UNDER 
.TEST 

.•BRANCH IF PASFLG NOT =0 

FOR ERROR REPORT 

;*ERROR* REPORT ERROR MESSAGE 
; ******ERROR NUMBER 46****** 

.•ABORT TST 13. 
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3/^1 










sc. - 


Ann 




3Z.A3 


A/V./L1 3 

UU*«oi£ 


1 A37A1 








CI D 


01 


OLt\X 


("W.A1 A. 
UU*»0 I o 


UtU I J J 








r Mp 


ft I ,nj 


£mO*» 




1 AVI /. 
A 3711 f\f 








qu r c 

Bn 1 o 














run 
Lflr 




c*»oo 




1 fi7Z.AC 








Ql n 




3Z.A7 


[W.A3A 










T CTQ 
1 OIO 




3/ Afl 


lAJ*»o3c 










OiMC 




3 A AO 
£407 


rw. at/. 


m 571 1 


1 77AA7 






nuv 


*1 77AA7 fOI^ 
H \ f f OO f i In U 


I U 


















fW.AZ.fi 


VLVV I I 






1 • 


(MO 


PO f P1 1 


7L77 












DTv 


1 2$ 




fi<V.AZ.£ 
WHO**** 


AA/7^7 
Uv 1 * 'Of 


nnn 7ao 






JSR 


PC. ERROR 






vV/VVH f 








47 




















c**f O 


ooza 1 ;? 








IP*- 


CMP 


R3.R1 


~>L77 




1 (\X777 








BL0 


4$ 


?L7U. 
CH f 0 
















70 










• RP Tl IDW 


HERE AFTER PROGRAM RUN 


pz.ro 




















opoono 




174- 
I J9 - 


ADD 


#20000, R3 


7LfO 
c*oc 


dOZiAap 










8R 


3$ 


















7 LRU 


do^aa^. 


1P3777 
1 C t f D f 


noonm 


onn^OA 




CMP8 


#1 ,a»PASFLG 


2485 
















































P£RR 




nni^77 

Uv IHJf 








BE0 


24$ 


?£R9 
































P£Q3 


f)0£A7£ 


10V>?7 








BL0 


END 12 


































no4A7A 


1051 17 


000^07 






COMB 


a»*PASFLG + 1 


















X9A 
















7LQ7 


oo^70P 










BNE 


2$ 


7LQR 


oo£ 7Cic 


01 ?70? 


OOSI^I 






MOV 


#5141 ,R2 


p/QQ 

CH77 














psoo 


oo£7in 


01 P7D0 

wit / 


1 777L0 

Iff f H\t 






MOV 


#13$-.-6,R0 




fi0£71£ 


D AO 700 








ADD 


PC.RO 


psop 














P50T 
















P504 






















000^0 A 






INC8 


a^PASFLG 


PS0A 


004 777 


OOOA^O 








BR 


2S 


P507 
















P508 


004 7P4 


0^2777 


0OO0P0 


1 7^51A 


1At ■ 


BIT 


#20.aswR 


2509 


004732 


001016 








BNE 


18S 


2510 


004734 


105737 


000042 






TSTB 


a#42 


2511 


004740 


001013 








BNE 


18$ 


2512 


004742 


004767 


001644 






JSR 


PCPNTMES 


2513 


004746 


051524 


030524 


020063 




•ASCIZ 


/TST13 BNK/ 


2514 


004754 


0471C2 


000113 










2515 












.EVEN 





.•INCREMENT R3 BY 2 
.-DECREMENT R1 BY 2 

.-WRITE THE BACKGROUND DEFINED AT STEP 4. 

.HAS STORING THE 177667 REACHED WHERE ' MOV R2.-(PC) IS 
.•BRANCH IF YES DON'T DESTROY THE MOV R2.-(PC> IS. 
;IS THE THE READ ONLY CHECK PASS? 
.-BRANCH IF YES 

.-WRITE THE LOCATION WITH THE COMPLEMENT OF THE 

;0P CODE JMP (RO) 

; READ R1 TO CONTAIN CORRECT DATA 

;* ERROR* REPORT ERROR MESSAGE 
; ******FRR0R NUMBER 47****** 

;IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK 
.-THEN REPEAT FROM 4$ 

IN BANK UNDER TEST 

.•OTHERWISE GO TO THE NEXT 4K BANK 



THE PROGRAM CONTROL COMES HERE AS FOLLOWS 

1- PASFLG=0. PROGRAM HAS JUST COMPLETED A 
WRITE/READ CYCLE FOR THE BACK GROUND 

AND WANTS TO BEGIN THE WRITE RECOVERY TEST 

2- PASFLG=1. PROGRAM HAS JUST COMPLETED 
THE WRITE RECOVERY TEST AND WANTS TO 
READ MEMORY FOR CORRECT DATA 

3- PASFLG=2. PROGRAM HAS CORRECTLY READ THE 
MEMORY AND WANTS TO GO THE NEXT TEST. 

ENTER HERE WITH PASFLG=0. ON THE FIRST ENTRY 
ENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND 
ENTRY DISABLE READ ONLY 

PLACE THE OP CODE FOR INSTRUCTION COM -(R1) 
IN R2 

PLACE THE RETURN ADDRESS IN R0 AS 13$ 
THUS WHEN THE READ RECOVERY TEST REACHES 
THE MIDDLE OF THE 4K MEMORY THEN THE 
INSTRUCTION EXECUTED WILL BE JMP (RO) 
BRANCHINGING THE PROGRAM TO 13$ 
INCREMENT PASFLG BY 1. 



HAS THE PRINTOUTS BEEN SUPRESSED ? 
IF SO THEN GO TO 18$ 
IS THE PROGRAM RUNNING UNDER ACT? 
BRANCH IF YES 
TYPE THE BANK UNDER TEST 
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T13 WRITE RECOVERY TEST 



D 5 



SEG 0055 



2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 



004760 004767 002454 
004764 004767 001650 

004770 000113 



C04772 105137 000307 
004776 012700 000110 
005002 000745 



18$: 



24$: 



JSP 
JSR 

JMP 



COMB 

MOV 

BR 



PC.GET8NK 
PC.STPDEC 

(R5) 



a#PASFLG* 1 

mo.RO 

15$ 



.-GET BANK NO. UNDER TEST INTO DECWRD FOR PRINT, 
;TYPE BANK NG. UNDER TEST 



; BEGIN EXECUTING MOV R2.-(PC> .COM -(R1> SEQUENCE IN T£C 



PLACE THE OP CODE FOR JMP (RO) IN RO 
READ THE MEMORY FOR CORRECT DATA AFTER 
INCREMENTING PASFLG TO 2 



;TST13 EXITS VIA END12. 
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PARITY OR RELOCATE"' 



E 5 



SEO 0056 



2529 

2530 

2531 

2532 

2533 

2534 

2535 

2536 

2537 

2538 

2539 

2540 

2541 

2542 

2543 

2544 

2545 

2546 

2547 

25^.8 

2549 

2550 

2551 

2552 

2553 

2554 

2555 

2556 

2557 

2558 

2559 

2560 

2561 

2562 

2563 

2564 

2565 

2566 

?567 

2568 

2569 

25^0 

2571 

2572 

2573 

2574 

2575 

2576 

2577 

2578 

25 7 9 

2580 

2581 

2582 

2583 

2584 



005004 012737 000377 000316 

005012 105737 000276 

005016 001065 

005020 032777 001000 173422 

005026 001046 

005030 105737 000405 

005034 100420 

005036 112737 000200 000405 



005044 004767 001542 

005050 042522 047514 000103 

005056 01 3705 000340 



RELOC: MOV 


#377.*»3AKPAT 


T ST8 


S#MMAVA 


BNE 


CONTMM 


BIT 


#iooo.asuR 


BNE 


CKDONE 


TSTB 


a#ftEL 


SMI 


RELOER 


M0V8 


#200.a*REL 



;IS THE MEMORY MANAGEMENT BEING TESTED ? 

;IF SO THEN GO TO CONTMM AND CONTINUE TESTING 

.•MEMORY MANAGEMENT 

.-RELOCATION WANTED? 

.•BRANCH IF NO 

;IF THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO 
; PLACE THE PROGRAM BACK IN LOWER CORE 
.•OTHERWISE PREPARE TO RELOCATE 



.•RELOCATE THE DIAGNOSTIC TO HIGHEST AVAILABLE MEMORY 



005062 
005064 
005070 
005072 



005076 
005102 
005106 

005110 
005114 
005116 
005122 
005124 
005130 
005134 
005140 
005144 



005150 
005 1S4 
005156 

005162 
005166 
005170 
005172 
005176 
005202 



014445 

C20427 000430 
101374 

000165 000050 



2$: 



JSR PC.PNTMES 

.ASCIZ /RELOC/ 
• EVEN 

MOV 3WMAXMEM.R5 

MOV -CR4).-(R5) 

CMP R4.*8EGIN-50 

BHI 2$ 

JMP 50CR5) 



TYPE "REL' 



PREPARE TO LOAD THE PROGRAM IN THE HIGHEST 
AVAILABLE MEMORY 
RELOCATE THE PROGRAM 

NEITHER RELOCATE NOR TEST LOCATIONS I OWER THAN BEGIN-50 



.••RELOCATE THE DIAGNOSTIC BACK TO LOWER MEMORY 



013705 
105737 
100016 

012704 
012524 
020537 
103774 
105037 
010537 
012706 
010637 
000137 



105737 
001073 
004767 

105737 
001462 
000402 
004767 
012703 
004767 



005206 012704 
005212 020237 



000346 
000405 



000430 

000340 

000405 
000346 
000500 
000350 
005150 



000315 
001702 
000276 

002036 
000324 
002142 

020000 

172342 



RELOER: MOV a#SAVR5,R5 
TSTB a#REL 
BPL CKDONE 



MOV 

2$: MOV 
CMP 
BLO 
CLPB 
MOV 
MOV 
MOV 

CKDONE: JMP 



LOWER: TSTB 
BNE 

TSTMM: JSR 

TSTB 

BEQ 

BR 

CONTMM: JSR 
5CNTMM: MOV 

JSR 



#BFGJN-50,R4 
(R5)+,(R4)+ 
R5,a*MAXMEM 
2$ 

a*REL 

R5.a*SAVR5 
08EGIN.SP 
SP.a*SAVR6 
SLOWER 



a»SAVKB8 

STPSTK 

PC.MEMMNG 

S*MMAVA 

ENDPAS 

SCNTMM 

PC.UPMM 

fflOWTWO,R3 

PC.GETSIZ 



MOV #20000. R4 
CMP R2,3#1 72342 



.•RESTORE R5 

;IS DIAGNOSTIC IN RELOCATED STATE? 
.•BRANCH IF NO 

.-PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 



SAVE R5 

RESET STACK TO LOWER MEMORY 

'BEGIN" USES THIS TO RESET THE STACK. 

TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE 



HERE DUE TO *C TYPED? 

BRANCH IF YES (TYPE ERROR STACK) 

SET THE REGISTERS IF THE MEMORY MANAGEMENT 
IS AVAILABLE 

IS MEM. MANAG. AVAILABLE ? 

BRANCH IF NO 

BEGIN TESTING ABOVE 28K 

GO TO UPDATE MEM. MANAG. REGISTERS 

MAKE R3 POINT TO THE LOCATION LOWTWO 

LOAD BITS 6-10 OF R2 WITH THE BITS 13-17 
OF THE LOWEST ADDRESS UNDER TEST 
MAKE R4 POINT TO THE LOWEST LOCATION IN THE BANK 
POINTED BY PAGE ADDRESS REGISTER 1 (PARI) 
IS THE CONTENT OF R2 LOWER THAN THE CONTENT OF 
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PARI TV OR RELOCATE? 



F 5 



SEO 0057 



2585 

2586 

2587 

2588 

2589 

2590 

2591 

2592 

2593 

2594 

2595 

2596 

2597 

2598 

2599 

2600 

2601 

2602 

2603 

2604 

2605 

2606 

2607 

2608 

2609 

2610 

2611 

2612 

2613 

2614 

2615 

2616 

2617 

2618 • 

2619 

2620 

2621 

2622 

2623 

2624 

2625 

2626 

2627 



005216 
005220 

005222 
005226 
005232 



005236 
005242 
005244 
005250 
005254 
005256 



103405 
050104 

162702 
004767 
004767 



004767 
010005 
004767 
004767 
010013 
000167 



005262 
005264 

005270 
0052 74 
005276 
005300 
005302 
005306 

005310 
005312 
005314 
005316 
005322 
005324 
OC5330 



010046 
012700 

162716 
050116 
020240 
001410 
020027 
101370 

005720 
021002 
003006 
012716 
012600 
062700 
000207 



005332 0226^6 



000200 
001636 
002112 



000020 

002100 
000006 

174256 



172356 
020000 

172340 



157776 
000002 



2$: 



BLO 
BIS 

SUB 
JSR 

JSR 



JSR 
MOV 
JSR 
JSR 
MOV 
JMP 



2$ 

R1.R4 

#200. R2 
PC.MMREG 

PC.GETSIZ 



PC .MAXADR 

R0.R5 

PC.GETSIZ 

PC .MAXADR 

R0.CR3) 

CLRMEM 



PARI ? 

IF SO THEN GO 2$ 

SUBROUTINE GETSIZ LOADED R1 WITH BITS 0-12 
OF LOWADD WHICH HAVE NOW BEEN LOADED IN R4 

SET MEM. MANAG. REGISTERS 
PLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED 
IN BITS 6-10 OF R2. #160000 IN RO AND BITS 0-12 
OF LOCATION HIGHADD IN R1 

GET THE ADDRESS OF MAX. MEM. UNDER TEST 

PREPARE TO SET UP LOCATION MAXMEM 

GET THE MAXIMUM ADDRESS OF AVAIlABLE MEMORY 

AND STORE INTO ' MAXMEM" ' 

GO TEST A 24K SLICE ABOVE 28K. 



MAXADR - SUBROUTINE TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K. 
REGISTERS; 

RO- ON ENTRY- #160000 AND ON EXIT=HIGHEST VIRTUAL ADDR. UNDER TEST 
R1= LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS 
R2= PAR BLOCK NO. CURRENTLY UNDER TEST. 

MAXADR: MOV RO.-(SP) ;PUT MAXIMUM AVAILABLE ADDRESS ON STACK 

MOV #1 72356. RO ;R0=PAR7 UN I BUS ADDRESS 

;**8EGIN LOOP TO FIND PAR ADDRESS UNDER TEST 



2$: 



SUB 
BIS 
CMP 
BEQ 
CMP 
BHI 



#20000. (SP) 
R1. (SP) 
R2,-(R0) 
3$ 

RO. #172340 
2$ 



DECREMENT VIRTUAL ADDRESS BY 4K 
SET BITS 11:0 TO MAXIMUM VIRTUAL TEST ADDRESS 
DOES CURRENT PAR= TEST BLOCK NO. ? 
BRANCH IF YES 
ARE WE AT PARO? 
NO KEEP TRYING 



;**END LOOP TO FIND PAR ADDRESS UNDER TEST 



3$: 



4$: 



TST 
CMP 
BGT 
MOV 
MOV 
ADD 
RTS 

CMP 



(R0)+ ;SET TO PAR CURRENT 

(R0).R2 ;IS THE PAR BLOCK UNDER TEST G T R THAN Al LOWED? 



4$ 

#157776. (SP) 

(SP)*.RO 

#2,R0 

PC 

<SP)+.(SP)+ 



BRANCH IF YES (FALL INTO ENDPAS) 
EXIT WITH MAXADR^ 28K SEGMENT TEST SIZE 
SET RO TO MAXIMUM VIRTUAL TEST ADDRESS 
MAKE MAXIMUM MEMORY +2 
AND EXIT MAXADR ROUTINE 

;FIXUP STACK 

;AND FALL THRU TO ENDPAS. 
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2628 










;• t 


2629 












2630 










- * 


2631 










• * 


2632 










■ * 


2633 












263* 












2635 












2636 


0C5334 


012777 


000020 


173106 ENDPAS: 


BIT 


637 


005342 


001055 






BME 


J638 


005344 


012746 


\77777 


STPSTK: 


MOV 


2639 












2640 


005350 


012701 


007744 




MOV 


2641 












2642 


005354 


012703 


000376 


TYPSTK: 


MOV 


2643 


005360 


005216 






INC 


2644 


005362 


0201 37 


000310 




CMP 


2645 


005366 


103043 






BHIS 


2646 


005370 


112702 


000022 




MOVB 


2647 


005374 


105302 




RETSTK: 


DECS 


°648 


005376 


002766 






BLT 


2649 












2650 


005400 


105721 






TSTB 


2651 


005402 


001774 






BEQ 


2652 


005404 


020227 


000020 




CMP 


2653 












2654 












2655 


005410 


103404 






BLO 


2656 


005412 


101026 






BHI 


2657 












2658 


005414 , 


004767 


001000 




JSR 


2659 


005420 


000404 






BR 


2660 


005422 


010237 


000312 


2$: 


MOV 


2661 












2662 


005426 


004767 


001202 




JSR 


2663 


005432 


011637 


000312 


FAILNM: 


MOV 


2664 


005436 


004767 


001 1 76 




JSR 


2665 


005442 


005043 






CLR 


2666 


005444 


114113 






MOVB 


2667 












2668 


005446 


105021 






CLR8 


2669 


005450 


005043 
105237 






CLR 


2670 


005452 


000314 




INC8 


2671 


005456 


004767 


001316 




JSR 


2672 












2673 


005462 


012703 


000376 




MOi/ 


2674 


005466 


000742 






BR 


2675 


005470 


004767 


000750 


PARFL: 


JSR 


2676 


0054 74 


000756 






BR 



G 5 
: ERROR STACK 
ROUTINE FOR ERROR STACK 



SEO 0058 



THIS ROUTINE IS USED TO DETERMINE IF TYPE OUT Of THE ERROR STACK 
FOR ONLY THE FARING BITS IS REQUIRED OR NOT 



#20.aSWR 
$EOP 

Xf-1 ,-(SP> 
#ENDPRG.R1 

#376, R3 

(SP) 

R1 ,a#ENDSTK 
$EOP 
#18., R2 

R2 ;IF ALL 

TYPSTK 

(R1) + 

RETSTK 

R2.#16. 



2$ 

PARFL 

PCTPADER 

FAILNM 

R2.a#DECWRD 

PCTYPDEC 
(SP), WfDECWRD 
PCSTPDEC 
-(R3) 

-(R1),(R3) 

(R1) + 
-<R3) 
a#TYPCNT 
PC.RPTOCT 

#376, R3 
RETSTK 
PC.TPPRfcR 
FAILNM 



ARE WE GOING TO TYPE THE ERROR STACK AND END OF PASS? 
IF NOT THEN GO TO SEOP 

THE PROGRAM HAS REACHED THE END AND ERROR 
STACK AND END OF PASS WILL BE TYPED OUT 
PLACE THE STARTING ADDRESS OF THE ERROR STACK 
FOR 0 to 4K MEMORY IN R1 

IF WE HAVE GONE THRU THE ENTIRE 

HAS THE END OF THE ERROR STACK BEEN REACHED ? 

THEN GO TO TYPE END OF PASS 

16 BITS OF THIS BANK HAVE BEEN CHECKED. 
BEEN CHECKED FOR ERROR THEN SEE IF THERE 
IS ANY MORE 4K MEMORY BANK 
OTHERWISE CHECK THE BYTE STORED AT (R1 ) 
IF IT IS 0 WE WILL NOT TYPE IT 
IS THE POINTER POINTING TO ERROR STACK BYTE 
MEANT FOR COLLECTING ADDRESS FAILURES FOR 
THE SPECIFIC MEMORY BANK 
JF NOT THEN GO TO TYPE BIT NUMBER 
IF IT IS POINTING TO THE STACK LOCATION INTENDED 
TO COLLECT PARITY FAILURES THEN GO-TO PARFL 
OTHERWISE TYPE "ADDRESS ERROR" 

PREPARE TO TYPE THE NUMBER OF THE FAILING BIT 
IN DECIMAL 

GO TO TYPE THE 31 T NUMBER IN DECIMAL 
PREPARE TO TYPE THE PAGE NUMBER 
IN DECIMAL 

PREPARE TO PRINTOUT THE NUMBER OF TIMES THIS 
FAILURE OCCURED 
CLEAR THE ERROR STACK 

ENABLE THE TYPE OUT OF 1 WORDS 

TYPE THE 4K BANK AND THE NUMBER OF TIMES 
THIS FAILURE WAS SEEN 

RESET SCRATCH SiACK FOR EACH BIT PRINTED. 
TYPE "PAR ERR" 
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END OF PASS 



H 5 



Sf0 0059 



2677 








2678 
2679 
2680 




















2681 








2682 








2683 








2684 








2685 








2686 








2687 






m 


2688 


005476 


005002 




2689 


005500 


004767 


002014 


2690 


005504 


105737 


000315 


2691 


005510 


001043 




2692 


005512 


005237 


000406 


2693 


005516 


032777 


000040 


2694 


005524 


001012 




2695 


005526 


004767 


001052 


2696 


005532 


040520 


051523 


2697 








2698 


005540 


013737 


0004 &6 


2699 


005546 


004767 


001066 


2700 


005552 


013700 


000042 


2701 


005556 


001405 




2702 


005560 


004767 


000012 


2703 


005564 


000005 




2704 








27C5 








2706 
2707 








005566 


000137 


0001 56 


2708 








2709 


005572 


000137 


000250 


2710 








2711 


005576 


004767 


001616 


2712 


005602 


013704 


000344 


27H 


005606 


014445 




2714 


005610 


020437 


000310 


2715 


005614 


101374 




2716 


005616 


000207 




2717 








.7718 








2719 








2720 
27?1 


005620 


004 767 


177752 


005624 


000167 


000400 


27?? 








2721 









END OF PASS 



TYPfc * PASS*" AND DISABLF PARITY. 
ALSO SERVRE ACT11. 

AND EVERY CONSECUTIVE PASSES UNLESS 81 T A OF tSWREG IS HIGH 



172724 



000043 
000312 



$EOP: CLR 
JSR 
TST8 
BNE 
JNf 
BIT 
BNE 

TYPE OP: JSR 

.ASCIZ 
.EVEN 
MOV 
JSR 

AC T 1 1 : MOV 
BEO 
JSR 
RESET 



R2 

PC. PARITY 
a*SAVKB8 
CTLC 

a*$PAss 
#4C,asuR 

AC Til 

PC.TPCRLF 

/PASS*/ 

i*$PASS,3*DECWRD 
PC.STPDEC 
3*42. RO 
$D0AGN 
PC.RLODER 



SET R2= PARITY MODULE DISABLE CODE 

GO DISABLE PARITY MODULES IF SELECTED. 

CONTROL-C TYPED? 

BRANCH IF YES-RESTORE LOADERS AND HAL T- 
INCREMENT PASS COUNT 
"PASS#XX" PRINTOUT WANTED? 
BRANCH IF NO 
TYPE CR, LF, AND ' PASS*' ' 



;GET PASS COUNT 

.-TYPE IT 
GET THE MONITOR ADDRESS 
IF NONE 

RESTORE XXDP MONITOR 



:* SERVICE XXDP/ACT11 

JMP a#$FNDAD 



J.DOAGN: JMP 



Rl ODER: 
4$: 



JSR 
MOV 
MOV 
CMP 
BHI 
RTS 



WRESTRT 

PC.CLRW 

<4*SAVR4.R4 

-(R4),-(R5) 

R4,a*ENDSTK 

4$ 

PC 



.-RETURN TO ACT11 MONITOR. 

;JUMP TO ACT SERVICE 
.•REPEAT TEST IF NOT UNDER ACT 11 /XXDP 



STOP MEMORY MANAGEMEN* SO CAN RESTORE LOADERS 
RESTORE R4 WITH SAVR4 
RFSTORE LOADERS 



.•RETURN FROM RLODER CALL 



; CONTROL C HANDLER 



CTLC: 



JSR 
JMP 



PC.RLODER 
APTHLT 



.•RESTORE ABS LOADER 

;IF NOT APT HAL T A* FATHL T 



♦ 
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c f c** 












ER 


c> C J 














272.6 












'. . 


2727 












". . 


272& 

C ' CO 












'. , 


2729 














27V) 
















005M0 


01 7637 


000000 


000402 

Vww*» wC 


ERROR : 


MOV 


?7V 


005636 


010346 






1$: 


MOV 


0OS640 

ww -J VrrV 


01 0046 








MOV 


27y, 














2735 










.-SETUP BANK N 


2736 














2737 


005642 


010103 








MOV 


2738 


005644 

WW ^ W^T~ 


004767 


001570 






JSR 


2739 


005650 

W J\J S\J 


01 3703 


000312 






MOV 


2740 


005654 


110337 


00040^ 

www~w 






M0V8 


274 1 














27L2 










• 




2743 














2744 


005660 

W W ^ WW w 


010346 








MOV 


2745 


005662 

WW WWW 


0127U3 


000376 






MOV 


2746 


005666 

WW ^www 


013743 


00C306 






MOV 


2747 
2748 


005672 


005043 






2$: 


CLR 


005674 


113713 


000402 






M0V6 


2749 


005700 

W W «^ * WW 

005704 


016643 


000006 






MOV 


2750 


011143 








MOV 


2751 
2752 


005706 


010043 








MOV 


005710 


005043 








CLP 


2753 


005712 


CI 631 3 


000004 






MOV 


2/54 


005716 


04001 3 








BiC 


2755 


005720 


046300 


0000C4 






BIC 


2756 


005724 


05001 3 








BIS 


2757 


005726 


012700 


001 766 






i«0V 


2758 


005732 


060700 

v w w * ww 








ADD 


2759 


005734 


062700 


000022 




6$: 


ADD 


2760 


CK>5740 


005316 








DEC 


2761 


005742 


002374 








BGE 


2762 


005744 


005 72o 








TST 


2763 














2764 


005746 


105037 


000277 




ERRTYP: 


ClR8 


2765 


005752 


105737 


000300 




1$: 


TST8 


2766 


005756 


001007 

WW ■ w w ■ 








BNE 


2767 


005760 

WW^ * WW 


105720 








TST8 


2768 


005762 


105737 


000301 






TST8 


2769 


005766 


001003 

w w 1 w w 








bt;e 


2770 


005770 


105720 








TSTB 


2771 


005772 


005713 






2$: 


TST 


? 7 ~ 


005774 


100015 








BPL 


d< i 


005776 


122710 


000377 




3S: 


CMP8 


2774 


006002 


001401 








BE0 


2775 


006004 


105210 








INCB 


2776 


006006 


122710 


000001 




5$: 


CMPB 


2777 


006012 


001404 








BEQ 


2778 


006014 


032777 


000400 


1 72426 




BIT 


2779 


006022 


001002 








BNE 



I 5 

ROUTINE 

)R HANDLING ROUTINE 



SEO 0060 



PROGRAM COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS 
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE f 0RMA1 GIVtN EARLIER 



S(SP).a*$FATAL 
R3,-(SP) 
R0,-(SP) 

IN FATAL FOR APT 

..1.R3 
PCGETBNK 
3*PBNK,R3 
R3.3*$FATAL*1 



LOAD THE LOCATION SFATAL WITH THE ERROR NUMBER 
SAVE R3 

AND R0 ON THE STACK 



GET VIRTUAL ADDRESS UNDER TEST FOR GET8NK 
GET BANK NO. UNDER TEST INTO PBNK ' 
GE T BANK UNDER TEST 
STORE FAILING BANK NO. FOR APT 



R3.-(SP) ; TEMPORARILY STORE R3 

#376.R3 ;MAKE R3 AS THE STACK POINTER 
a#PA5FLG.-(R3) .-OUTPUT "HE WORD STORED AT 
-(R3) 

a»$FAfAL,(R3) ;PUT ERROR NO. ON ERROR STACK 

6(SP),-(R3) .-PLACE THE RETURN PC AT (R3) 

(R1).-(R3) ; PLACE BAD DATA, 

R0,-(R3) .AND GOOD DATA ON THE STACK 

-(R3) 

4(R3),(R3) ;TAKE THE 

R0,(R3) .-EXCLUSIVE OR OF GOOD AND BAD DATA 

4(R3),R0 ;T0 FIND THE BITS THAT FAILED 

R0.(R3) ;AND PLACE IT ON THE STACK 
#ENDPRG-.-24.,R0;THIS CODE BRINGS THE RELATIVE ADDRESS 

PC.R0 ;0F THE STARTING OF THE ERROR STACK 

#18., R0 ;F0R THE SPECIFIC 4K BANK 
(SP) 
6$ 

(SP)* .-RESTORE THE STACK POINTER 

a#TYPEN8 .-DISABLE ANY TYPE OUT 

a#$PRERR ;IF THIS IS PARITY PROBLEM 

3$ ; THEN GO TO 3$ 

(RO)* .-OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1 

a#SADERR ;IF THIS IS ADDRESSING PROBLEM 

3$ .-THEN GO TO 3$ 

(R0)+ ; INCREMENT THE POINTER RO BY 1 

(R3) ;IS BIT 15 OF (R3) SET? 

4$ ;IF NOT THEN GO TO 4$ 

#377. (RC) .-OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TJMES 

5$ ;IF SO DON'T BUMP ERROR COUNT 

(RO) ; INCREMENT THE ERROR COUNTER BY 1 

#1,(R0) ;M0RE THAN 1 ERROR OCCURRED ON THIS BIT? 

7$ .-BRANCH IF NO 

O400.3SWR .-STOP ERROR PRINTOUT AFTER 1 WANTED? 

4$ ; BRANCH IF YES (DON'T TYPE ERROR) 
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2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2303 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
28H 
281b 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
^829 
2830 
2831 
2832 
2833 
2834 
2835 



J 5 



vwvVc - * 


105? 37 


000277 




7$: 


INC8 


d*TYPENB 






000 ^00 




/%': 


TS79 


i*V»RERR 


WW/* 


uv ■ •* v.? 








BEO 


9$ 


fYV»OV» 


004/67 


000402 






JSR 


PC.TPPRER 


OOfX)L? 

wwvV^C 










BR 


8$ 




I w^ f Jt 


_/w * 




94- 


TST8 


AWSADERR 


006050 


001403 








BEG 


6$ 


006052 


004767 


000342 






JSR 


PC.TPADERR 


006056 


000403 








BR 


8$ 


006060 


105720 






6$: 


TSTB 


(R0>* 


006062 


006313 








ASL 


(R3) 


006064 


001342 








BNE 


2$ 


006066 

WWW 


112737 


000006 

WWWVWW 


000314 

WWW — ' ■ ~ 


8$: 


M0V8 


#6.a*TYPCNT 


006074 

WW 1 ■» 


004 76 7 

vV" » W 


001 142 






JSR 


PC.PUTADR 


006100 

WW 1 w 


004767 


000^16 

WWWw i *J 






JSR 


PC.TYPERR 


006104 


005037 


000300 




10$: 


CLR 


3ASPRERR 


006110 


01 2600 








MOV 


(SP)+.R0 


006112 


012603 








MOV 


(SP)*.R3 


006114 


105737 


000420 




FNDERR: 


TSTB 


a*$ENV 


006120 


001404 








BEQ 


2$ 


006122 


012737 


000001 


000400 




MOV 


#1.a#SMSGTY 


006130 


000442 








BR 


FATHLT 


006132 


010246 






2$: 


MOV 


R2.-CSP) 


006134 


005777 


172310 






TST 


9SUR 


0061.4O- 


•T004C5I 






BMI 


4$ 










.-CHECK 


FOR C0NTR0L-C KEY 


006142 


004767 


001526 






JSR 


PC.CHECKC 


006K6 


105737 


000042 




7$: 


TSTB 


3*42 


006152 


001401 








BEO 


6$ 


006154 


000000 






4S: 


HALT 




006156 


012602 






6S: 


MOV 


(SP)*.R2 


006160 


062716 


000002 






ADD 


*2.(SP) 


006164 


000207 








RTS 


PC 


006166 








FATERR: 






006166 


004767 


000412 




SFOERR: 


JSR 


PC.TPCRLF 


006172 


051105 


020122 


000043 




.ASCIZ 


/ERR #/ 












.EVEN 





006200 
006206 
006212 
006216 
006222 



017637 
105237 
012703 
013743 
00^743 



000000 
000314 
0003 7 6 
000402 



000402 



MOV 
INC8 
MOV 
MOV 

TST 



a(SP).a*$FATA. 

AWPCNT 
#376. R3 
5)#$FATAL.-(R3) 
-(R3) 



ENABLE THE TYPE OUT ROUTINE 

PARITY ERROR? 

BRANCH IF NO 

ELSE TYPE 'PAR ERR" 

AND DON'T TEST INDIVIDUAL BIT FAILURES. 
ADDRESS ERROR? 
BRANCH IF NO 
PRINT "ADR ERR" 

POINT TO NEXT ENTRY IN ERROR STACK 

JS THERE STILL AN ERROR BIT SET IN ERROR. 

BR IF YES - KEEP FILLING ERROR STACK 

TELL TYP0CT TO TYPE 6 WORDS OF ERROR STACK. 

THE STACK POINTED 8Y R3 

GO TO THE SUBROUTINE TO PLACE THE ADDRESS iN R1 
AT LOCATIONS (R3> AND (R3-2) 
TYPE ERROR STACK (7 WORDS) 

: CLEAR ADDRESS/PARITY ERROR FLAGS 
:REST0RE R0 
:AND R3 

:ARE WE RUNNING UNDER APT? 
:IF NOT THEN TEST FOR HALT 
; OTHERWISE INFORM THE APT 
;G0T0 FATHLT AND WAIT FOR API. 

: SAVE R2 TEMP 

;D0ES THE OPERATOR REQUIRE THE PROGRAM TO HALT 
;0N ERROR 

;IF SO THEN HALT ON ERROR 



IF C0NTR0L-C TYPED THEN PRINT ERROR HISTORY 

AND HALT AT FATHLT. 

ARE WE RUNNING UNDER ACT? 

BRANCH IF NO 

PROGRAM HAS HALTED ON ERROR. R1 IS POINTING 
TO A LOCATION WHICH SHOULD HAVE CONTAINED 
THE WORD STORED IN R0 
RESTORE R2 

RESTORE THE RETURN ADDRESS 
RETURN FROM THE SUBROUTINE 



;iYPE "ERR ft" 



LOAD THE LOCATION SFATAL WITH THE ERROR NUMBER 
TELL STPNUM TO TYPE 1 WORD 
$TPNUM USES R3 AS STACK 
PUT ERROR NO. ON STACK 
STPNUM REQUIRES THIS 
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?8V» 




004767 


000560 

www -'WW 


?837 

C OJ' 


006230 

w WwC -/w 


105737 


000420 




006234 


001 327 




CO J T 


006236 


000000 

www 




CO** w 


006P40 


0001 37 

V W 1 J ■ 


000250 

wvc v 


CO** 1 
















2843 








?844 








?845 
















C W"* f 








C ©™*w 








c o*» / 

C w-> w 














CO J J 








?85? 








?R53 








2854 








285 5 

CO J ^ 








2856 


006244 

WWWC ~~ 


012637 


000356 

W WW W w 


2857 


006250 


011637 


000360 

W W W W V 


28 c 8 

C W -» W 


0062 5 A 


01 3706 


000350 


2859 

CO J 7 








2860 

C Www 


006260 


010067 

W 1 W WW ' 


0001 30 

www 1 -xw 


2861 


006264 

vwwt w~ 


010167 


000126 

V W W V ^ w 


2862 


0C6270 


01 3701 


000352 


2863 


006274 


012700 


172100 


2864 

C WW^ 








2865 


006300 

WW-/ W 


005701 

W J f V 1 




2866 


006302 


001441 




2867 


006304 

V WW ^ W ~ 


006001 




2868 


006306 

V WW — * v W 


1 03005 




2869 


006310 


005710 




2870 

C W 1 V 


006312 

WW— r 1 t 


100406 




2871 


006314 


020027 


1 721 36 


2872 


006320 


002032 




2873 

C w» 


006322 


062700 

/WW ■ WW 


000002 

W W W W w fc— 


2874 

t w f ~ 


006326 

W WW -/fc W 


000766 

www ■ ww 




2875 

CO f J 


006330 


042710 


100000 

1 W w W W W 


2876 


006334 


011001 




2877 


006336 


006101 




2878 


006340 

WWW V 

006342 

V WW W 


006101 




2879 

C W ' ' 


006101 

WWW 1 w • 




2880 


006344 


006101 

www 1 w 1 




2881 


006346 


042701 


000777 


2882 


006352 


105237 


000300 

W W W w w 


2883 


006356 


004767 


1 77246 


2884 


006362 


000050 




2885 








2886 
2887 
2888 


006364 


016700 


000024 


006370 


016701 


000022 


006374 


013746 


000360 


2889 


006400 


C13746 


000356 


2890 


006404 


000002 




2891 
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K 5 



SEQ 0062 



JSR 

APTHLT: TST8 
BNE 

FATHL f : HALT 
JMP 



PC.FATYP ; TYPE ERROR NO. 

3#$ENV .-RUNNING JNDER APT? 
FNDERR .-BRANCH IF YES 

.-TATAL ERROR OR A C HALT. 
S#RESTRT .-RESTART TST BUT DON'T CLEAR PASS COUNT 

;IN CASE A C RESTART. 



PARERR 

PARITY TRAP HANDLER 
COME HERE FROM A TRAP TO 114. 

THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND IF ONE 
HAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS 
AND CALL THE "ERROR" ROUTINE TO PRINT ERROR MESSAGE. 
IF NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR IS DONE. 

REGISTER US AGE. 

R0= HOLDS PARITY MODULE ADDRESSES 

R1 = GETS ERROR ADDRESS FOR "ERROR" CALL. 



PARERR: 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




TST 




BEQ 


1$: 


R0R 




BCC 




TST 




8MI 




CMP 




BGE 


2$: 


ADD 




BR 


3$: 


BIC 




MOV 




R0L 




R0L 




R0L 




R0L 




BIC 




INCB 




JSR 




50 




MOV 




MOV 




MOV 




MOV 




RTI 



(SP) + ,WPARSP 

(SP),a»PARPS 

a#SAVR6.SP 

R0.SAVR0 
R1.SAVR1 
a*PARMAP.R1 
#172100. R0 

R1 

4$ 

R1 

2$ 

(R0> 

3$ 

R0,#172136 
4$ 

#2.R0 .-POINT 
1$ 

#100000, (R0) 

(R0).R1 

R1 

R1 

R1 

R1 

#777 # R1 ;SAVE 
a#$PRERR 
PC. ERROR 



SAVR0.R0 
SAVR1.R1 
a#PARPS,-(SP) 
?»PARSP,-(SP) 



SET PARSP TO RETURN ADDRESS 
SAVE PSW FOR RETURN 

AND RESET THE SP SINCE NOT ENOUGH STACK ROOM 
TO COMPLETE THE ERROR SERVICE ROUTINE. 
SAVE R0 DURING PARITY SERVICE 
SAVE R1 DURING PARITY SERVICE 
GET PARITY AVAILABLE MAP 
R0= FIRST PARITY ADDRESS. 



;ANY PARITY MODULES AVAILABLE? 
;BR IF NO -FATAL ERROR- 
; SHIFT PARITY MAP BIT INTO C BIT. 
; BRANCH IF THIS PARITY MODULE NOT AVAILABLE. 
; PARITY MODULE ERROR BIT SET? 
; BRANCH IF YES -CALL ' ^ RROR' ' R0U T INE 
;D0NE ALL PARITY MODULES? 
;BR IF YES- GO TO FATAL ERROR CALL- 
TO NEXT PARITY ADDRESS 
;AND KEEP TRYING 
CLEAR PARITY ERROR BIT. 
GET PARITY MODULE CSR 

;SHIFT ERROR ADDRESS BITS 11-5 INTO 15-9 



ERROR ADDRESS ONLY 

; TELL "ERROR" PARITY ERROR CALL. 
;*fcRR0R* REPORT ERROR MESSAGE 
; „****.*ERR0R NUMBER 50****** 

RESTORE R0 
RESTORE R1 

SET RETURN PSW ON STACK 
AND SET RETURN ADDRESS ON STACK 
RETURN TO TEST WHERE PARITY trap OCCURRED, 
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L 5 



SEG 006? 



289? 










2893 


006406 








2894 


006406 


AA/ 7A7 

004/6/ 


1 77CC/ 

1 / />!>4 






aaa/ 1 o 
006s V 


OOOUa ! 






•)Q(V 










dtyr< 










<roVo 




















r rOU 


AAA./ 1 / 
J0O4 14 


AAAAAA 
000000 








AAA./ 1 A 

00o4 lo 


AAAAAA 
UOOOOO 






dWd 










<rw5 












AAA./ OA 

00o4<:0 


1 AC7T7 


AAA077 

OOUc/ / 






AAA./ O/ 

0064 <?4 


AA1 / AA 

001406 








AAA/ OA 


AA/ 7A7 

U04 r o r 


AAA1 A A 

0001 oO 




290/ 


A/\A /TO 

0064 5? 


A/ 11 A1 

04 c I 0 1 


AOA1 OO 
VdVldd 


AC1 1 AC 

0-> 1 105 


2908 


AA/ / / A 

006440 


AAA1 OO 

0001 dd 






2 AT* 










001 A 

2V10 


AAA/ / O 

00o44<r 


AAA OA 7 

000 <:U/ 






291 1 












AAA/// 


1 05777 

1 VJI J' 


C\CIC\?77 

UwUc 1 1 




2913 


006450 


00K06 






29H 


006452 


004767 


0001 34 




2915 


006456 


040520 


020122 


051105 


2916 


J06464 


000122 






2917 










2918 


006466 


C00207 







;C0HE HERE IF NO PARITY E1R0R FLAG FOUND SET 
4t: 

JSR PC.FATER.l ;*ERR0R» REPORT ERROR MESSAGE AND HAL T AT f ATHL T 

51 ;»****»ERR0R NUMBER 51****»» 

;R0*R1 ARE SAVED HERE FOR PARI TV TRAP DUE 70 INSUFFICIENT 
; STACK SPACE BETWEEN 500-450. 

SAVP0: 0 ; SAVE RO DURING PARITY TRAP SERVICE 

SAVR1: 0 ; SAVE R1 DURING PARI T Y TRAP SERVICE 



TPADER: 



1$: 

TPPRER: 



1$: 



TST8 
BE0 
JSR 
.ASCIZ 

.EVEN 
RTS 

TST8 
BEO 
JSR 
.ASCIZ 

.EVEN 
RTS 



a#TYPENB 
1$ 

PCPNTMES 
/ADR ERR/ 



PC 

a#TYPbN8 
1$ 

PCPNTMES 
/PAR ERR/ 



PC 



TYPE FRROR? 
BRANCH IF NO 
TYPE CR, LF AND 



'ADR ER" 



ERROR PRINTOUTS ALLOWED? 
BRANCH IF NO 

GO TO TYPE CR. LF AND 'PAR ERR' 
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n 5 



SEO 0064 



2919 














2920 














2921 












;* TYPE 


2922 














2923 












• * 


2924 












- » 


2925 












• *■ 


2926 














2927 


006470 


010146 






NOTYP: 


MOV 


2928 


006472 


016601 


000002 






MOV 


2929 


006476 


105721 






4$: 


TST8 


2930 


006500 


001 376 








BNE 


2931 


006502 


000412 








BR 


2932 


006504 


010146 






STYPE : 


MOV 


2933 


006506 


010046 








MOV 


2934 


006510 


016601 


AA.AAA / 

000004 






MOV 


2935 


006514 


112100 






2$: 


M0V8 


2936 


006516 


001403 








BEQ 


2937 


006520 


004767 


000022 






JSR 


2938 


006524 


000773 








BR 


2939 


006526 


012600 






4$: 


MOV 


2940 


006530 


005201 






RETTYP: 


INC 


2941 


006532 


042701 


000001 






BIC 


2942 


006536 


010166 


000002 






MOV 


2943 


006542 


012601 








MOV 


2944 


006544 


000416 








BR 


2945 














2946 


006546 


132737 


000040 


000421 


5TPCHR: 


BITS 


2947 


006554 


001005 








BNE 


2948 


006556 


1 AC777 

105737 


1 77564 




2$: 


T C TO 

TSTB 


2949 


006562 


100375 








new 

BPL 


2950 


006564 


110037 


177566 






M0V8 


2951 


006570 


000404 






AS: 


BR 


2952 














2953 


006572 


004767 


1 7770b 




PCRLr : 


JSR 


2954 


006576 


AACA1 C 

005015 


AAA 

000 






.ASCI/ 


2955 




006602 








• EVEN 


2956 


006602 


000207 






EXTYP: 


RTS 


2957 














2958 


006604 


004767 


1 77762 




TPCRLF : 


JSR 


2959 


006610 


00073-5 








BR 
















2961 














2962 


006612 


032777 


000020 


171630 


PNTMES: 


BIT 


2963 


006620 


001323 








BNE 


2964 


006622 


123737 


000042 


000046 




CMP8 


2965 


006630 


001717 








BEQ 


2966 


006632 


000764 








BR 



THIS ROUTINE IS USED BY THE PROGRAM TO TYPE OUT ANY CHARACTER 



R1.-(SP) 
2(SP).R1 
(R1) + 
4$ 

RETTYP 
R1 .-(SP) 
R0,-(SP) 
4(SP).R1 
(RD + .R0 
4$ 

PCSTPCHR 
2$ 

(SP)+,R0 
R1 

*1,R1 

R1,2(SP) 
(SP)+,R1 
EXTYP 

*40.a*$ENVM 
4$ 

a*$TPS 

2$ 

R0.*T$TP8 
EXTYP 

PCSTYPE 
<15><12> 



IF THIS TYPE OUT HAS BEEN SUPRESSED THEN 
PREPARE TO RETURN 

SAVE R1 

AND R0 ON THE STACK 

PLACE THE ADDRESS OF MESSAGE TO BE TYPED IN R1 
PLACE THE BYTE TO BE TYPED IN R0 
IF IT IS END OF MESSAGE THEN GO TO 4$ 
OTHERWISE GO TO TYPE THE CONTENTS OF R0 

RESTORE RO 

CAUSE R* TO 

POINT TO EVEN ADDRESS 

MODIFY THE RETURN ADDRESS 

RESTORE R1 

AND RETURN VIA RTS PC 

HAVE TYPE OUTS BEEN DISABLED? 

IF SO THEN RETURN FROM THE SUBROUTINE 

WAIT HERE 

UNTIL THE PRINTER IS READY 

LOAD DATA TO BE TYPED INTO DATA REG. 

RETURN 



;CR/LF 



PC 

PCPCRl F 
$TYPE 



#20.aswR 

NOTYP 

a*42.a*46 

NOTYP 
TPCRLF 



.•RETURN 



; TYPE CR/LF 

;N0W GO TO TYPE THE REST OF THE MESSAGE 



PRINTOUTS ALLOWED? 
BRANCH IF NO 
RUNNING UNDER ACT 11? 
BRANCH IF YES -NOT PRINTOUT- 
SEND CR/LF AND TYPE MESSAGE. 



N 5 
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5>EG 006S 



2967 

2968 

2969 

2970 

2971 

2972 

2973 

2974 

2975 

2976 

2977 

2978 

2979 

2980 

2981 

2982 

2983 

2984 

2985 

2986 

2987 

2988 

2989 

2990 

2991 

2992 

2993 

2994 



* ROUTINE TO TYPE OUT A DECIMAL NUMBER 
* 

* THIS ROUTINE IS USED TO CONVERT THE CONTENTS OF LOCATION 
DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES 



006634 004767 177732 



006640 
006642 

006646 
006652 

006654 
006660 
006662 
006666 
006672 
006676 
006702 
006706 



005046 
01 3746 

162716 
002403 

005266 
000772 
062716 
052716 
112667 
052716 
112667 
004767 



000312 
000012 

000002 

000012 
000060 
000020 
000060 
000007 
177572 



TYPDEC: 
tTPDEC : 

2$: 



4$: 



006712 020040 030040 000060 
006720 000207 6$: 



JSR 

CLR 
MOV 

SUB 
BLT 

INC 

BR 

ADD 

BIS 

MOVB 

BIS 

MOVB 

JSR 

.ASCIZ 

.EVEN 

RTS 



PC.PCRLF 
-(SP) 

a#DECWRD.-(SP) 

#10. » (SP) 
4$ 

2(SP) 
2$ 

#10.. (SP) 
#60. (SP) 
(SP)*,6S-2 
#60. (SP) 
(SP)+.6$-3 
PC.STYPE 



/ 



PC 



00/ 



; T YPE CR/LF 



;GET THE WORD THAT HAS TO BE CONVERTED TO A 
; DECIMAL NUMBER 

;IF THE NUMBER IN (SP) WAS LESS THAN 10. THEN 
;G0 TO 4$ 

.•OTHERWISE ADD 1 TO THE LOCATION STORING 10'S DIGIT 
;AND RETURN TO 2$ 

;MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

;PLACE THE VS DIGIT TO BE TYPED 

;MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

.-PLACE THE 10'S DIGIT TO BE TYPED 

;G0 TO TYPE THE NUMBER IN DECIMAL FOLLOWED BY 

;3 SPACES 



.•RETURN FROM THE SUBROUTINE 
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B 6 



SEO 0066 



~}QQCL 

err J 
























C770 








7QOO 

£777 








JtJVU 








W01 








TOO? 








JWJ 
















JvV J 








jVJVO 








7A07 








7 AAQ 
J WO 
















7010 


0067?? 


CW>777 


n?ooor 


^oi 1 


0067^0 


001054 




301? 

JU 1 c 


0067^? 


004767 


1 77 6 ?4 

1 ' 'D J** 


301 3 


006736 

UUU f JU 


004 767 

WVH r V » 


00001? 

UVUv 1 c 


V)14 


00674? 


ooo££7 

WWvHH f 




vn 5 


006744 


w i c Icj 




JW 1 W 








301 7 


VWw» "*U 


012113 

vie 1 1 J 




3018 


006750 

VUU r «/ V 


1 05?37 

W JC J f 


000314 

WWW J 1 " 


3019 


006754 


05? 74 3 

W JC t ~ -/ 


000004 


3020 


006760 

WO' Uw 


1061 1 3 

1 WW 1 1 J 




3021 

JVC 1 


00676? 

WWW ' vL 


103376 




30?? 


006764 


005000 

WW J WWW 




30?3 

JVC -? 


006766 

UVU 7 DO 


1061 1 3 

1 WW • 1 J 




30?4 


006770 


006100 

wO 1 WW 




30? 5 

JVC J 


00677? 

www f f C 


1061 1 3 

1 WW 1 1 J 




30?6 

JUL U 


WWW' ' *♦ 


0061 00 




30? 7 

JVC * 


006776 

WWW ' ' w 


000405 




30?R 


007000 


004 7f>7 


1 77500 

1 f ' J\J\J 


30?9 


007004 


OPOO^O 


000040 


3030 

JU Jv 








3031 


007010 

WW r W 1 W 


005000 

wJWv 




303? 


00701 ? 

WW » V 1 C 


01?7?3 


000006 


3033 


007016 

WWf W 1 V 


00024 1 




3036 


0070?0 

WW ' \JC v 


0061 1 3 

WWW 1 1 J 




3035 


0070?? 

WW * vLL 


006100 

WWW I WW 




JwJV 


0070?4 


05?700 

vJC' WW 


000060 


3037 


007030 

WWf UjU 


004767 

wW*» » w f 


1 7751? 

iff J 1 c 


3038 


007034 

ww» w -/^ 


005000 

WW J www 




3039 


007036 


0061 1 ^ 




3040 


007040 

ww » y,u 


006100 

WWW ' WW 




3041 


007042 


006113 




3042 


007044 


006100 




3043 


007046 


105363 


\7777h 


3044 


007052 


001361 




3045 


00*054 


105337 


000314 


3046 


007060 


001347 




3047 


007062 


000207 





TYP0CT: 
2$: 



RPT0CT: 



F ATYP: 

STPNUM: 

4$: 



OCTAL TYPE OUT ROUTINE 



THIS ROUTINE IS USED TO TVPE OUT THE OCTAL VALUES 
CONTROL SHOULD COME TO THIS ROUTINE WITH R3 POINTING TO 
THE LOW ORDER BITS (I.E. BITS 0-15) OF THE ADDRESS TO 
BE TYPED WHERE AS R3-2 SHOULD CONTAIN THE HIGH ORDER BITS 
(J.E. BITS 16 & 17). CONTENTS OF LOCATION R3-1 AND RO ARE 
DESTROYED BY THIS SUBROUTINE 

BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE 
TO BE TYPED. 



171520 TYPERR: BIT 
BNE 
JSR 
JSR 
BR 

0CTTYP: MOV 



0CTXT; 



MOV 

INCB 

BIS 

R0LB 

BCC 

CLR 

R0LB 

R0L 

R0L8 

R0L 

BR 

JSR 

.ASCIZ 

.EVEN 

CLR 

MOV 

CLC 

R0L 

R0L 

BIS 

JSR 

CLR 

R0L 

R0L 

R0L 

POL 

DEC8 

BNE 

DECS 

BNE 

RTS 



#20000. 3SWR 

0CTXT 

PC.PCRLF 

PC.TYP0CT 

0CTXT 

(R1)+.(R3)* 

(R1)*,(R3) 

StfTYPCNT 

#4,-(R3) 

(R3) 

2$ 

RO 

(R3) 

RO 

(R3) 

R0 

$TPNUM 
PC.STYPE 

/ / 

RO 

#6,(R3)+ 

(R3) 
RO 

#60. RO 

PC.STPCHR 

RO 

(R3< 

RO 

(R3) 

RO 

-2(R3) 
4$ 

a#TYPCNT 

RPT0CT 

PC 



ERROR PRINTOUT WANTED? 
BRANCH IF NO 
TYPE CR/LF 
TYPE OCTAL NO. 
RETURN VIA RTS PC 

PLACE THE HIGH ORDER BITS AT LOCATION POINTED 
BY R3 

AND NOW PLACE THE LOW ORDER BITS 
ENABLE THE TYPE OUT OF ONE OCTAL WORD 



;GET BITS 17 & 16 INTO R0 



TYPE 3 SPACES 



.•ENABLE THE TYPE OUT OF 6 OCTAL DIGITS 



PLACE THE CARRY FROM (R3) IN RO 
OR THE CONTENTS OF RO WITH AN ASCII 0 
TYPE THE OCiAL NUMBER STORED IN R0 



.-PLACE THE CARRY FROM (R3) IN RO 

.-PLACE THE CARRY FROM (R3> IN RO 

;IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS 

; THEN REPEAT FROM 4$ 

;IF ALL THE WORDS REQUIRED HAVE NOT BEEN 
.-TYPED THEN REPEAT FROM RPT0CT 
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SUBROUTINE FOR MEMORY MANAGEMENT 



SEO 006 7 



3048 










3049 










3050 










3051 










3052 










3053 










5054 










3055 










5056 










3057 


007064 


Olc/02 


AA1 / AA 

OOImOO 




3058 


00/0/0 


1 ACA77 

10505/ 


AAA07A 

000c /o 




5059 










5060 


AA7A7/ 

00 /o/4 


A70777 

05c/ / • 


m nnnn 
0 l 0000 


1 71 7Z. A 
1 / 1 jmO 


506 1 


AA71 AO 

00/ 10c 


AA1 

OO I MM I 






506? 


AA71 A/ 

00/1 04 


A1 0 7AA 

01c/ 00 


AAAAA/ 

000004 




5065 


AA71 1 A 

00 r\ 10 


A1 O70A 

Olc/cO 


nn7oi n 
00 / C 1 U 




3064 


AA71 1 / 
00/ 114 


A1 071 n 

01c/!0 


0003m J 




5065 


AA71 OA 

00/1 CO 


AACnT7 

00305/ 


1 77C70 




5066 


AA71 0/ 

00/lc4 


1 nC077 

I03c5/ 


nnn 07a 
000c / o 




jU6/ 










7AAQ 

5068 


AA71 1A 

00/1 50 


m 07A1 

01 c/01 


1 707/ n 

1 f C540 




506V 


AA71 1/ 

00/1 54 


AACAOI 

0050<;1 






7A7A 

5U/0 


AA71 7A 

00/1 36 


062702 


OOOcOL 




7A71 

50/ l 


AA71 / O 

00/14c^ 


A1 A001 

01 Occl 






7A70 

50/ c 


AA71 / / 
00/ 1 MM 


nom 07 
0C0 lc/ 


1 707 c A 

/ C3^D 




50/5 


AA71 CA 

00/ 1 50 


1 A7770 

1 03/ / c 






50 /m 


AA71 CO 

00/1 3 c 


m 071 1 

01 cf 1 1 


nn7Ann 

00 f DUO 




50/3 


AA71 CA 

00/ I JO 


n 1 o 7fi i 
0 1 C/U I 


i 707nn 

1 / C3UU 




7A7/ 

50 fo 


nn71 AO 

00/ loc 


m 0701 
01 c/c I 

nom 07 
OcU I c f 


A77/.nA 
\jff mUO 




50/ / 


AA71 AA 

00/166 


1 7071 A 
I /C3 I O 




in 7a 

5U/0 


AA71 70 

00 f I / c 


1 A1 777 

I U I / / 3 






7n7Q 

5U/ V 


AA71 7/ 
00/1 / M 


nnco77 
005c 3/ 


1 77C73 




•rnan 
5080 


aa 70 An 
00/ cOO 


nncm n 
0030 I U 






moi 


AA70nO 

00/ COC 


m 0 7/.n 
U I C/mU 


nnm nz 

U'JU I Um 




508c 


AA70AA 

00/ C06 


nnnon7 
OOOcO/ 






?no7 










IAO/ 

5084 


AA701 n 

00/clO 


A00A0A 

0ccoc6 






7nac 

5003 


nn70i o 
00/ c I c 


A( V. 7 A 7 

00m /0 


1 777AA 
1 f / 3oO 




5UBo 


AA701 A 
00/ClO 


A/ 7C 1 A 

Om / 3 1 6 


n/ kl/ r\ 
Om3mmU 


nnni oz 
Out I Cm 


508/ 










jUOO 




0O£ 7 A 7 


i 7h77A 




3089 


007230 


000052 






3090 










3091 


007232 


000762 






3092 










3093 


00723- 


013702 


172354 




309A 


0072m0 


00071 3 







* ROUTINE TO SET OP MEMORY MANAGEMENT REGISTERS 



MEMMNG: MOV 
MMREG: CLR8 

BIT 
BEQ 
MOV 
MOV 
MOV 
CLR 
INC8 

MOV 

CLR 

2$: ADD 
MOV 
CMP 
BLO 
MOV 
MOV 

4$: MOV 
CMP 
BLOS 
INC 

SRETMM: CLR 
MOV 

RTS 



RETMM: 
NOMM: 



UPMM: 



CMP 

JSR 
.ASCiZ 
• EVEN 
JSR 
52 

BR 

MOV 
BR 



PROGRAM CONTROL COMES HERE TO DETERMINE IT THE MEMORY MANAGEMENT 
IS AVAILABLE OR NOT. AND IF IT IS AVAIlABLE THEN WHETHER 
THE MEMORY ABOVE 28K IS REQUIRED TO BE TESTED OR NOT . 



#KC0.R2 
WMMAVA 

#10000.SSUR 
RETMM 

#M,RO 

#NOMM.(R0)+ 
#3m0.(R0) 
a*SRO 
WMMAVA 

#1 72340. R1 
(R1) + 
#200. R2 
R2.(R1)+ 
R1 .#172356 
2$ 

#7600, (R1) 
#1 72300. R1 
#77406. (R1H 
R1.#1 72316 
4$ 

9#sro 

(RO) 

#8USER.-(R0) 
PC 

(SP)+,(^P)+ 
PC.TPCRLF 
/NO KT/ 

PC.FATERR 



$RE TMM 

S#1 72354. R2 
MMREG 



CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE 

THAT MEM. MANAG. IS AVAILABLE FOR TESTING 

HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG. 7 

IF NOT THEN RETURN FROM THE SUBROUTINE 

PREPARE TO SETUP TIME OUT VECTOR 

RETURN ADDRESS TO NOMM 

AND WITH A PSW OF 340 

TRY TO REACH MEM. MANAG. SRO 

IF IT IS AVAILABLE THEN SET MEM. MANAG. > ABLF 
BYTE 

R1 IS POINTING TO PARO 
PARO WILL POINT TO BANK 0 

.-SETUP PAR1-PAR6 



;PAR7 IS POINTING TO THE I/O PAGE 
.•SETUP PDR0-PDR7 



.•ENABLE MEM. MANAG. 

.•RESTORE TIME OUT TRAP VECTOR FOR ANY FUTURE TRA° 



.•RESTORE STACK POINTER 

;TYPE "NO MEMORY MANAGEMENT MESSAGE 



; *ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;******ERROR NUMBER 52****** 

; RESTORE TIME OUT TRAP VECTOR 

.•PREPARE TO UPDATE MEMORY MANAG. REGISTERS 
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18 BIT ADDRESS GENERATOR 



D 6 



SEO 0068 









yjvo 






7AQ7 












7AOQ 






3 1 W 






71m 






7in? 






7107 






71 A/ 
J 1 U*» 






7105 






71 (V> 


W' etc 


005067 


7107 


007?£6 


0101 1 7 


710fl 


oo7?so 


105777 


7109 


007P54 


001 4?S 


71 10 


oo7?56 


Ol01£6 


71 1 1 


007P60 


0£?701 


71 1 ? 


007?6£ 


0^.01 1 7 


71 1 7 

j i i j 


007P66 


0SP701 

\JJCf v 1 


71 1£ 


007? 7? 


006001 


71 1 5 


007? 74 


107776 


71 1* 

Jl ID 


00777 '6 


06?701 




00770? 


01 1 101 


71 1fl 


00770A 


O5?701 


71 19 


007710 


006101 


71 ?0 


00731? 


103376 


XI PI 
J 1 C I 


007314 


006101 

Vwv 1 V 1 


71?? 


007316 


006143 


J It J 


0073?0 


006101 


71 ?4 


0077?? 


0061 ?3 


71 ?S 

Jit.-' 


0073?4 


0501 13 


71 ?6 


0073?6 


01?601 


71?7 


007770 


000?07 


71 ?8 






71 P9 

Jit" 






71 70 






71 7 1 






717? 






7177 






71 74 






71 75 






41 % 






71 77 






"41 "58 

J I JO 






3139 






3140 






3141 


007332 


016143 


.H2 


007336 


005043 


3^3 






3K4 


007340 


116113 


31-5 


007344 


000207 



* 18 BIT ADDRESS GENERATOR 



1 77776 
000276 

017777 
004000 

172340 
010000 



PUT ADR: CLR 
MCV 
TST8 
BEQ 
MOV 
BIC 
BIC 
BIS 
R0R 
BCC 
ADD 
MOV 
BIS 
R0L 
BCC 
R0L 
R0L 
R0L 
R0L 
BIS 
MOV 
RTS 



THIS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED IN R1 
IN THE LOCATION POINTED BY R3. THE ADDRESS IN R1 IS CONVERTED 
TO AN 18 BIT ADDRESS ONLY IF MEM. MANAG. IS AVILABLE IN WHICH 
CASE THE HIGH ORDER BITS Of THE ADDRESS ARE PLACED IN LOCATION 
POINTED BY R3-2 



2$: 



4$: 



6$: 



-2(R3) 
R1 . (R3) 
aAWIAVA 
6$ 

R".-<SP) 

K\7777. R1 

R1.(R3) 

*4000.R1 

R1 

2$ 

#1 72340, R1 

(RD.R1 

#10000.R1 

R1 

4$ 

R1 

-(R3) 
R1 

(R3> + 
R1.(R3) 
(SP)+,R1 
PC 



PLACE THE ADDRESS STORED IN R1 IN LOCATION (R3) 

IS THE MEM. MANAG. AVAILABLE ? 

IF NOT THEN RETURN FROM THE SUBROUTINE 

SAVE R1 

CLEAR BITS 0-12 OF THE ADDRESS IN R1 
LEAVE BITS 0-12 OF THE ADDRESS IN (R3) 
PREPARE TO SHIFT Ri BY 12 PLACES 

GET THE NUMBER OF PAR IN R1 
GET THE ADDRESS OF PAR IN R1 
LOAD R1 WITH THE CONTENTS OF PAR 



.-PLACE THE ADDRESS BITS 13-17 IN BITS 11-15 OF R1 
; PLACE BIT 17 IN LOCATION POINTED BY R3-2 
;PLACE BIT 16 OF THE ADDRESS 

.-PLACE BITS 13-15 OF THE ADDRESS IN LOCATION (R3) 
•RESTORE R1 

[•RETURN FROM THE SUBROUTINE 



* GET ADDRESS FROM THE APT MAILBOX 
* — — — — — — 

* 
* 
* 
* 
* 

* 
* 
* 



THIS SUBROUTINE IS USED TO GET ADDRESS FROM APT MAILBOX AND 
PLACE IT IN THE LOCATION USED BY THE PROGRAM TO DEFINE THE 
MEMORY BOUNDRIES. 

PROGRAM CONTROL SHOULD COME TO THIS SUBROUTINE WITH R1 POINT- 
ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO 
T HE LOCATIONS WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE 
TO BE PLACED 



000001 
-[77777 



GETADR: MOV 
CLR 



2$: 



MOVB 
RTS 



1(R1),-(R3) 
-(R3) 

-KR1),(R3> 
PC 



PLACE THE LOW ORDER BITS OF THE ADDRESS 

CLEAR THE LOCATION WHERE THE HIGH ORDER BPS 

HAVE TO BE PLACED 

PLACE BITS 16 & 17 

RETURN FROM THE SUBROUTINE 
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3146 

3147 

3148 

3H9 

3150 

3151 

315? 

3153 

31 54 

3155 

3156 

3157 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 

3180 

3181 

3182 

3183 

3184 

3185 

3186 

3187 

3188 

3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

320i 
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C0NVEft T 18 BIT ADDRESS TO THE PAR FORM 



• CONVERT 18 BIT ADDRESS TO THE PAR FORM 



SEO 0069 



THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRI SS STORED IN 
LOCATIONS POINTED BY R3 AND R3*2 TO THE FORM IT WILL BE STORED 
IN A PAR. THE RESULT IS LEFT IN R2. R1 IS LOADED WITH BITS 
0-12 OF THE ADDRESS AND RO WITH 160000 



007346 005046 



007350 
007352 
007354 
007360 
007364 
007366 
007370 
007372 
007374 
007376 
007400 
007404 
007406 
007410 
007414 
007416 



SGTSIZ: CLR 



-(SP) 



.•PREPARE TO PLACE ADDRESS BITSH3-17 jfg BITS 
;0-4 OF R2 



007420 
007424 
007426 
007432 
007436 



007440 
007442 
0C7444 
007450 



010046 
010346 
042703 
052703 



017777 
010000 



012301 




GETSIZ: 


MOV 


(R3)+,R1 


LOAD R2 WITH THE LOW ORDER BITS OF THE ADDRESS 








MOV 


(R3),R2 


042702 


017777 




BIC 


117777. R2 : 


CLEAR ADDRESS BITS 0-12 


052702 


000040 


2$: 


BIS 


#40. R2 




006001 




4$: 


ROR 


R1 




00*00? 






ROR 


R2 .-ROTATE R1 AND R2 7 TIMES 


103375 






BCC 


4$ 




005716 






TST 


(SP) 


IF RETURN PC IS ZERO THEN IT MUST BE THE 


001004 






BNE 


6$ 


FLAG THAT WAS SET AT SGTSIZ 


005726 






TST 


(SP) + 


POP THE FLAG OFF STACK- 


052702 


000100 




BIS 


#100. R2 


KEEP ROTATING 


000767 






BR 


4$ 




012301 




6$: 


MOV 


(R3)+.R1 ; PLACE THE LOW ORDER ADDRESS BITS IN R1 


012700 


160000 




MOV 


#1 60000. RO 




040001 






BIC 


R0.R1 . .-LEAVE BITS 0-12 OF THE ADDRESS IN R1 


/N/N/N ^ f \ ^ 

000207 






RTS 


PC i .-RETURN FROM THE SU6R0RNE 








;* SUBROUTINE TO DISABLE 


MEMORY MANAGEMENT 








• * 

• * 


THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT 








• * 


UNIT 




105737 


000276 


CLRMM: 


T ST8 


a#MMAVA 


•WAS THE MEMORY MANAGEMENT ENABLED ? 


001404 






BEO 


1$ 


■IF NOT THEN GO TO 1$ 


005037 


177572 




CLR 


a#SR0 


•DISABLE THE MEMORY MANAGEMENT 


105037 


000276 




CLRB 


a#MMAVA 


; AND DO NOT ATTEMPT TO TEST MEM. MANAG. 


000207 


1$: 


RTS 


PC 


•RETURN FROM THE SUBROUTINE 






;* GET 


BANK NO. 


UNDER TEST 










CALLED 


BY ERRTYP AND TST13 TO GET BANK NO. UNDER TEST INTO PBNK. 



REGISTERS 
R0=POINTER TO PAR UNDER TEST 
R3=VIRTUAL ADDRESS ON ENTRY 
R0+R3 ARE RESTORED ON EXIT. 



GETBNK: MOV 
MOV 
BIC 
BIS 



RO.-(SP) 
R3,-(SP> 
M17777.HI 
#10000, R3 



SAVE RO 
SAVE R3 

SAVE ONLY VIRTUAL BANK BITS 
.-SETUP R3 SHIFT BIT 
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SUBROUTINE TO DISABLE MEMORY MANAGEMENT 



3202 

32C3 

3204 

3205 

3206 

3207 

3208 

3209 

3210 

3211 

3212 

3213 

3214 

3215 

3216 

3217 

3218 

T219 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

3227 

3228 

3229 

3230 

3231 

5232 

3233 

3234 

323S 

3236 

3237 

3238 

3239 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3248 

3249 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 



007454 
007456 
007460 
007462 
007466 



007470 
007472 
007476 
007500 
007502 
007504 
007506 
007512 
007514 
007516 



007520 
007526 

007530 
007534 
007540 
007542 
007546 
007552 
007556 
007560 
007564 
007566 
007570 
007572 
007576 
007600 



000241 
006003 
103376 
105737 
001407 



032777 
001456 

012700 
012710 
060710 
005037 
012701 
012703 
010241 
050337 
000241 
006003 
103372 
012710 
005702 
001431 



1$: 



000276 



CLC 

ROR 

BCC 

TST8 

BEO 



R3 
1$ 

WMMAVA 
2$ 



SHIFT A BANK BIT 
UNTIL IN BITS <2:0> OF R3 
MEMORY MANAGEMENT UNDER TEST? 
NO EXIT 



;GET PAR ADDRESS AND PHYSICAL BANK NO. 



006303 




ASL 


R3 


;MAKE R3 PAR ADDRESS OFFSET. 


062703 


1 72340 


ADD 


#1 72340. R3 


;MAKE FULL PAR ADDRESS. 


011300 




MOV 


<R3>.R0 


;GET PAR CONTENTS 


006300 




ASL 


RO 




000300 




SWAB 


RO 


.•SHIFT BANK BITS TO BITS <7:0> 


110003 




M0V8 


R0.R3 


;SET R3 TO PHYSICAL BANK NO. 


010337 


000312 


2$: MOV 


R3,a*P8NK 


.-STORE PHYSICAL BANK NO. 


012603 




MOV 


(SP)+.R3 


.•RESTORE R3 


01 2600 




MOV 


(SP)+.RO 


.-RESTORE RO 


000207 




RTS 


PC 


.•RETURN TO CALLER 






; PARI TV ENABLE /DISABLE ROUTINE 





THIS ROUTINE ENABLES OR DISABLES PARITY MODULES AND PRINTS ASSOCIATED MEASSAGFS. 
IF PARITY AVAILABLE THEN BIT13 OF "REL" IS SET AND "PARITY IS PRINTED. 
ALSO THE BACKGROUND TEST PATTERN (LOC. BAKPAT) IS SET 376 



4) 



REGISTER USAGE. 

R0= POINTS TO BUS TIMEOUT TRAP VECTOR (LOC. 
R1= HOLDS PARITY MODULE UNI BUS ADDPESS. 
R2= ON ENTRY HOLDS ENABLE /DISABLE CODE . 

IF R2=0 THEN DISABLE 

IF R2=1 THEN ENABLE 
R3= SCRATCH TO SETUP LOC. PARMAP WITH A MAP OF PARITY MODULES PRESENT. 



CALL IS 



MOV *1.R2 ; ENABLE CODE 
JSR PC. PARITY 



004000 


170722 PARITY: 


BIT 


#4000.3SWR 






BEO 


6$ 


000004 




MOV 


#4,R0 


000116 




MOV 


#5$- .-6,(R0) 






ADD 


PC.(RO) 


000352 


1$: 


CLR 


a*PARMAP 


172140 




MOV 


#172140.R1 


100000 




MOV 


#100000, R3 




2$: 


MOV 


R2.-fRD 


000352 




BIS 


R3.a*PARMAP 






CLC 




3S: 


ROR 


R3 


000104 




BCC 


2$ 




MOV 


ABUSER, (RO) 






TST 


R2 






BEG 


6$ 



.-PARITY TEST WANTED? 

.•BRANCH IF NO 

POINT RO TO BUS TIMEOUT ADDRESS. 

SET RETURN FROM TIMEOUT TRAP TO 5$ 

IN THE CURRENT BANK. 

CLEAR PARITY MAP HOLDER. 

SET R1 TO LAST PARITY MODULE ADDRESS+2 

SET R3 TO PARMAP AVAILABLE CODE BEGIN. 

ENABLE A PARITY MODULE+TRAP IF NOT AVAILABLE, 

NO TRAP TO 5$. SO SET PARITY AVAILABLE. 

SETUP NEXT PARMAP BIT 

BRANCH IF NOT DONE ALL PARITY ADDRESSES'. 
RESET BUS TIMEOUT TRAP VECTOR 
IS THIS A DISABLE CALL 7 
BRANCH IF YE 5 (FXIT) 
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SUBROUTINE TO DISABLE MEMORY MANAGEMENT 



SFO 0071 



5258 
3259 


007602 


005737 


000352 




TST 


AfPARMAP 


007606 


001011 






8NE 


4$ 


3260 


007610 


004767 


1 76770 




JSR 


PC.TPCRLF 


3261 


007614 


047516 


050040 


051101 


-ASf 17 


/NO PAR/ 


3262 


007622 


000 










3263 




007624 






.EVEN 




3264 


007624 


004/67 


176336 




JSR 


PC.FATERR 


3265 


007630 


000053 






53 




3266 














3267 














3268 


007632 


1 52737 


000040 


000405 


4$: 8JS8 


«40,a*REL 


3269 


007640 


012737 


000376 


000316 


MOV 


#376,a#BAKPAT 


3270 














3271 


007646 


004767 


176732 




JSR 


PC.TPCRLF 


3272 


007652 


040520 


000122 




.ASCIZ 


/PAR/ 


3273 










-EVEN 




5274 


007656 


000405 






BR 


EXJTC 


3275 














3276 










;GET HERE IF PARITY ADDRESS T 


3277 















.•WERE ANY PARITY MODUlES 
; BRANCH IF YES 
.PRINT "NO PAR" 



OJND? 



.••ERROR* REPORT ERROR MESSAGE AND HALT AT FA7HLT 
; »«*»»»ERROR NUMBER 53****** 



;SET PARITY UNDER TEST FLAG 
;SET BACKGROUND PATTERN TO 
.WORST CASE PARITY CODE. 
.-PRINT 'TST PARITY** 



;AND EXIT VIA RTS PC 
D OUT TO LOC. 4 
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SUBROUTINf TO 



3278 

3279 

3280 

3281 

3282 

3283 

32 34 

3285 

3286 

3287 

3288 

3289 

3290 

3291 

3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

33H 



007660 
007662 

007664 
007672 
00767? 



022626 
000741 

142737 

000207 



5S: 



00004C 



000405 6S: 

EXITC: 
7$: 



CMP 

SR 

Bice 

RTS 



H 6 * 

DISABLE MEMORY MANAGEMENT 

<SP)*.<SP,* .-RESET STACK FROM TRAP 

3$ .KEEP TRYING PARITY AODRESES. 

#40.a*RFL .-CLEAR PARITY TESTING FLAG 

PC .-RETURN TO CALLER 



SEO 0072 



CHECKC 

THIS ROUTINE CHECKS IF CGNTROL-C WAS TYPED AT THE END OF EACH 
TEST OR IN THE ERROR TYPE ROUTINE. 

IF CONTROL-C TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF IT WAS 
RELOCATED AND THE ERROR HISTORY IS PRINTED OUT. 
FINALLY IT HALTS AT FATHLT. 



007674 
007700 
007704 
007706 
00771? 
007716 
007722 
007724 
007730 
007734 

007740 



007744 



105037 
105737 
100372 
113702 
042702 
12270? 
001 363 
110237 
004767 
041536 
007740 
000167 

00774*, 
000000 



OOOOOi 



000315 
1 77560 

177502 
000200 
000003 

000315 
1 76650 
000 

175132 



CHECKC: CLR8 
TSTB 
BPL 
M0V8 
BIC 
CMPB 
BNE 
M0V8 
JSR 
.ASCIZ 
.E^/EN 
JMP 

.=7744 
ENDPRG: 0 



.END 



atfSAVKBe 

a#TKS 

EXITC 

a*$K88,R2 

#200. R2 ; CLEAR 

#3.R2 

EXITC 

R2-.a#SAVKB8 

PC.TPCRLF 

/ A C/ 



RELOER 



INJT CONTROL-C FLAG. 
ANY CHAR. TvPED? 
BR IF NO-EXIT VIA RTS PC- 
GET THE CHAR TYPED. 
THE PARITY BIT. 
IS IT CONTROL-C? 
BRANCH IF NO -EXIT VIA RTS PC- 
ELSE STORE THE CHAR. *0R USE AS A FLAG. 
PRINT ,,A C" 



;G0 RETURN PROGRAM tq > OWER CORE IF RELOCATED. 



THIS BEGINS THE STORAGE FOR THE ERROR HISTORY 
STACK. FOR EACH 4K BANK 18. BYTES A3E SAVED. 
ALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED 
AFTER THE ERROR STACK. 

FOR 4K MEMORY SIZE THEN PROGRAM^ 7^4 +22 7776 



4- 



* 
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TABLE — USER 


SYMBOLS 


ABASE = 


000000 


1200 










Af DW1 - 


000000 


1200 










A(DW2 = 


000000 


1200 










ACP<JOP= 


000000 


1 200 


■ C ■ J 








ACT1 1 


005552 


2694 










ADDWO = 


000000 


1200 










ADDWl = 


000000 


1200 










ADDW10= 


000000 


1200 










ADDW1 1 = 


000000 


1200 










ADDWl 2= 


000000 


1 200 










ADDWl 3= 


000000 


1200 










ADDWl 4= 


000000 


1200 


■ 








ADDW15= 


000000 


1200 










ADDW2 = 


000000 


1200 










ADDW3 = 


000000 


1200 










ADDW4 = 


000000 


1200 










ADDW5 = 


000000 


1200 










ADDW6 = 


000000 


1200 










ADDW7 = 


000000 


1200 










ADDW8 = 


000000 


1200 










ADDW9 ~ 


000000 


1200 










ADEVCT- 


000000 


1200 










ADEVW = 


000000 


1200 










AENV = 


000000 


1200 


1?1 1 








AENVM = 


000000 


1200 


1 C 1 c 








Af ATAL= 


000000 


1200 


1 ?03 








ANADR1= 


000000 


1200 


1 ceo 








AMADR2= 


000000 


1200 


1 23? 

I C JC 








AMADR3- 


000000 


1200 


1?3S 








AMADR4= 


ooocoo 


1200 


1 238 








AMAMS1= 


000000 


1200 


1 222 








AMAMS2= 


000000 


1200 


1?30 








AMAMS3= 


000000 


1200 


1233 








AMAM54= 


oooooc 


1200 


1?36 








AMSGAD= 


000000 


1200 


1 P08 
1 c uo 








AMSGLG= 


000000 


1200 


1?09 








AMSGTV= 


000000 


1200 










AMTYP1= 


000000 


1200 


I C C J 








AMT YP2= 


000000 


120C 


1?31 








AMTYP3= 


oooooc 


1200 










AWYP4 = 


oooooc 


TOO 


1?37 








APASS = 


000000 


1200 


1 C\JJ 








APRIOR= 


000000 


1200 










APTHLT 


006230 


2721 


CO J r w 








APTSIZ 


000724 


1300 


1 3K# 








ASWREG= 


000000 


12C0 


I C I -> 








ATESTN= 


000000 


1200 










AUNIT = 


000000 


1200 


1P07 








AUSWR - 


000000 


1 200 


It H 








AVECT1= 


000000 


1200 










AVECT2= 


000000 


1200 








1715 


BAKPAT 


C00316 


1026 


1160# 


1268' 1491 


1 705 1 707 




2126 


2^32 


2136 2149 


2152 2191 


2288 


BEGIN 


000500 


1034 


1163 


1184 1248* 


2548 2559 


2565 


BR 


001012 


1 332# 










BUSER 


000104 


1007* 


1382 


3081 3255 







SCO 0073 



1726* 
2344* 



1790 
2345 



1822* 
2529* 



20CK* 
3269* 



2039 ?074. 
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TAB C _ 
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CROSS REFERENCE 


CHECKC 


007674 


1547 


CO 1 c 


3295* 






CKDONc 


005144 


2534 


2557 


2567* 






CI NWfcH 


001540 


1485* 


2599 




3184* 






007420 


1417 


1439 


2711 




CNTSCP 


001672 


1546 










COrXT 


001600 


1502* 


1 SAO 




» 




CuNTrD 


005172 


2531 


?578* 








r ti r 

C TLC 


005620 


2691 






2663* 


CU70" 


Dt CWRD 


000312 


1146* 


1 147 


2660* 


ENDPAS 


005334 


2576 






2757 


JJv"" 


tNDPHQj 


007744 


1072 


1266 


2640 


r NDb 1 K 


000310 


1143* 


1 144 


1404* 


2644 




INUU 


002164 


1647* 


1689 








tND 1 


002264 


1689* 


1729 








END If 


004030 


2196 


2204* 


2347 






END I <: 


004354 


2347* 


2459 


2491 






tNDiT 


002374 


1729* 


1825 








t ND3 


002642 


1825* 


1864 

1 UU" 








END** 


002752 


1364* 


1950 








r nine 
END3 


003120 


1950* 


2006 








END6 


003254 


2006* 


^082 








c Mrv7 
tNDf 


003500 


2082* 


2204 










005650 


1604 


1667 


1721 


1786 


IOJV 


2307 


?315 


2444 


2456 




C DD TVD 
tKN I Tr 


005746 


2764* 










ruirr 

£ X 1 1 1 


007672 


3274 


3282* 


3297 


3301 




t X \ Tr 


006602 


2944 


2951 


2956* 






r An MM 


005432 


2659 


2663* 


2676 








006166 


1279 


1327 


1450 


1474 


Ift^? 
1 O-^c 


r A T Ul T 

r « I ML I 


006236 


2804 


2839* 








CAT VD 


007010 


2836 


3031* 








r kincDD 
r rMUCnn 


006114 


2801* 


2838 








r At t AD 


003526 


21 19* 


2254 








ut I MUK 


007332 


1 330 


1331 


3141* 






Ut I OriK 


007440 


2516 


2738 


3198* 






ut oil 


007350 


2580 


2591 


2596 


3159* 






000332 


1171* 


1316 








i l rij TLi 
h 1 un 1 W 


000330 


' 170* 


1315 


1392 






t AAD 

LUUr 


001610 


1505* 


1558 








i ryjAnri 
LUWADU 


000326 


1168* 






2037 






000304 


1136* 


1 137 


2025* 




LUWtn 


005150 


2567 


2571* 








i auTlja 
I.UWIWU 


000324 


1167* 


1385 


1441 


2579 




PI 


000200 


982* 


2473 








MA V AHD 


005262 


2594 


2597 


2608* 






MAVMCK 


000340 


1177* 


1314 


1408* 


1624 


1R1Q 

I O I 7 


ntl 1 *Vu 


007064 


1357 


2573 


3057* 




1* 


MCMTCT 


001532 


1479* 










MMAV/A 


000276 


1118* 


1 121 

MCI 


1359 


2530 


CJIJ 


MMOCr 

PTWtu 


007070 


1370 


2590 


3058* 


3094 




N 






1279 


1 OUOM 
I COC* 


1 X'J7 


1 T^flif 






1592 


1595* 


1600 


1602* 


lOJt 






1724* 


1746 


1749* 


1771 


177** 

I f I jH 






1883 


1886* 


1890 


1893* 


1897 






2024* 


2056 


2059* 


2113 


2116* 






2279 


2282* 


2307 


2310* 


2315 



USER SYMBOLS SEO 



2978 



189C 
2731* 


1897 
2883 


1924 


1982 


2056 


2137 


2153 


2162 




<roV»» 


5U88 












2545 


2561 














3058* 


3066* 


3108 


3184 


3187* 


5205 






1450 

1635* 

1781 

1900* 

2137 

2318* 


1453* 

1659 

1783* 

1924 

2140* 

2380 


1474 

1662* 

1797 

1927* 

2153 

2383* 


1477* 

1667 

1799* 

1972 

2156* 

2444 


1575 

1670* 

1834 

1975* 

2162 

2447* 


1578* 

1702 

1837* 

1982 

2165* 

2456 


1589 

1705* 

1850 

1985* 

2259 

2459* 


1591* 

172 1 

1853* 

2021 

2242* 

?47! 
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CROSS REFERENCE TABLE — USER SYMBOLS 

2897* 3088 3091* 3264 



SEO 0075 







2476* 


2883 

t_ WW J 


2886* 


2893 


2897* 




007210 


3063 

J WW-/ 


3084* 

-/ W^ ~ 








writ vp 


006470 


79270 


2963 


2965 








006744 


1 387 


1 391 


3015* 








007062 




3014 


3047* 








000556 

WvJ .^w 


1260 

> C WW 


1263* 








PAPFRP 


006244 


1256 


2856* 








PARFL 


005470 


2656 


2675* 








PAR I tv 


007520 


1490 

1 ■* 7v 


2689 

CUP' 


3241* 




3258 


PARMAP 


000352 


1185* 


2862 

L. WWC 


3247* 


3251* 


PAPDC 

r wr ^ 


000360 


1 188* 

1 1 WW" 


2857* 

C w ^ ' 


2888 

C. www 








000356 


1187* 


2856* 

C w-*w 


2889 

C WW " 




1928* 


PASFI G 


000306 

V Vw .^ww 


1 138* 


1 142 


1502* 


1860* 


2065 

C ww-' 


2070 


228S* 


2302 


2322 






2484 


2494* 


2505* 


252^* 


2746 




000312 

vVV 1 C 


1145* 


2739 


3215* 






PCRI.F 


006572 


1386 


2953* 


2958 


2975 


3012 


PNTMES 


00661 2 

Www 1 L 


1034 


2246 


2512 


2542 


2906 


PUT ADR 


007242 


1374 


1377 


2794 


3106* 




PWRDN 


000070 


1000* 


1252 








PURUP 


00C136 

WV 1 _/W 


1000 


1033* 








r <EL = 


000405 


1113* 


1259 


1465 


2407 


2535 


RFLFJOT 


000322 

Ww ^C- *- 


1 163* 


1467 








RELOC 


005004 

WW wv~ 


1527 


2529* 








RELOER 

I'LL UL * ' 


005076 

W V -* V ' w 


2536 


2555* 


3306 






RESTRT 


000250 


1048 


1064 


1066 


1072* 


2709 


RE TMM 


007206 


3061 


3082* 








RETSTK 


005374 


2647* 


2651 


2674 






RET TYP 


006530 

Ww J J\J 


2931 


2940* 








RLO0ER 


005576 


2702 


2711* 


2720 






RPT0CT 


007000 

ww' www 


2671 


3028* 


3046 






RPT10 


003522 


2117* 


2203 


2249 






RPT11 


00407u 


2199 


2202 


2245 


2248* 




RPT6 


003140 


1975* 


2005 








SAVKBB 
5AVLDR 


000315 


1150* 


2571 


2690 


3295* 


3302* 


001 3K 


1410 


1412 


1417* 






SAVL0C 


000354 


1186* 


1998* 








SAVMAX 


000342 


1179* 


1477 








SAVR0 


006414 


2860* 


2886 


2900* 






SAVR1 


006416 


2861* 


2887 


2901* 






SAVR4 


000344 


1180* 


2712 








SAVR5 


000346 


1073 


1181* 


1438* 


2555 


2564* 


SAVR6 


000350 


1033 


1058 


1184* 


1251* 


1608 


SCOPE ~ 


000240 

W W W L. » W 


983* 










SE0ERR 


006166 

WWW ■ \^w 


1575 


1659 


1702 


1746 


1834 


SETSTK 


001220 


1265 


1392* 








SETSWR 


000656 


1290* 










SLFSI7 


001024 


1341* 










SR0 = 


177572 


1159* 


3065* 


3079* 


3186* 




START 


000200 

W W Wk WW 


1041 


1058* 








STRTDI 


000302 


1134* 


1135 


2035* 


2064 




SWAP AT 


000320 


1162* 


2157 


2161 


2190* 




SWHALT 


001712 


1555* 










SWR 


000450 


1245* 


1293 


12%* 


1301* 


1334 






2533 


2636 


2693 


2778 


2807 


SwRFG 


000176 


1051* 


1296 









3267* 



1945* 
2328* 



2914 

2537* 

2840 



1977* 1988 
2329 2337* 



2962* 

2556 2563* 



1990* 

2338 



2003* 2024* 
2427 2434 



2047 
2449 



2063« 
2467 



3268* 3281* 



2566« 
1883 



2858 
1972 



2021 



2113 2259 2279 2380 2827* 



1448 
2962 



1494 
3010 



1553 
3060 



1557 
3241 



1618 2244 2248 2508 
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Swl 1 - 


004000 


982* 






4 ^ 4 T 

1517 


4 r 4 a 

1518 


T3L 


001626 


1511 


1515* 


1516 




1527 










TKS = 


177560 


1155* 


3296 








TPADER 


006420 


2658 


2787 


2904* 




AA/ ✓ 

2966 


TPCRLF 


006604 


1067 


2695 


2827 


2958* 


TPPRER 


006444 


2675 


2783 


2912* 






TRYSR 


001014 


1318 


1334* 








TSTGO 


0C1714 


1554 


1557* 








TSTMM 


005156 


1453 


2573* 








TSTRSL 


001372 


1261 


1438* 








TSTRP 


000570 


1264 


1266* 








TSTSCP 


0C1660 


1545* 


1647 








TSTSIZ 


001 376 


1439* 










TSTO 


001730 


1515 


T»73* 








TST1 


002166 


1516 


1655* 








TST10 


003502 


1523 


2110* 








TST11 


004032 


1524 


2236* 








TST12 


004104 


1525 


2277 M 


2346 






TST13 


004356 


1526 


2378* 








TST2 


002266 


1517 


1699* 








TST3 


002376 


1518 


1744* 


1823 






TST4 


002644 


1519 


1832* 








TST5 


002754 


1520 


1880* 








TST6 


003122 


1521 


1968* 








TST7 


003256 


1522 


2018* 








TYPCNT 


000314 


1 148* 


1254* 


2670* 


A ~7f> A ^ 

2792* 


2o5d* 


TYPDEC 


006634 


2662 


2975* 








TYPENB 


000277 


1122* 


1125 


2764* 


2780* 


2904 


TYPEOP 


005526 


2695* 










TYPERR 


006722 


2796 


7A1 Am 

3010* 








T YPMEM 


001206 


1 388* 










TYPOCT 


006754 


5013 


3019* 








TYPSIZ 


001164 


1332 


1335 


1382* 






TYPSTK 


005354 


2642* 


2648 








UPMM 


007234 


2578 
1025* 


7 A A "7> u 

3093* 




19/5 




WRTMEM 


0001 20 


1750 


1886 




$A = 


000001 


402* 


404 


/ AC A« 

405* 


40 


408* 






436 


437* 


/ / A 

442 


443* 


/ / "7> 

447 






464# 


467 


468* 


471 


472* 






492 


493* 


/ Ay 

496 


49 7 * 


C Art 

500 






519* 


529 


530* 


533 


534* 






559 


560* 


563 


564* 


r / 7 

567 






590* 


rn/ 

594 


595* 


y Ai 

601 


602* 


SADERR 


000301 


1 130* 


1 133 


1596* 


1 719* 


1 707. 

1 783* 


SAPTHD 


000276 


1 Ann 

1098 


' 4 A / 4« 

1 1 04* 


1117 






SCNTMM 


0051 76 


-v f- -7 -7 

2577 


2579* 








tCPUOP 


000426 


1215* 










tOEVf T 


000410 


1206* 


1552* 


AA/ *"> _ 

2062* 


2186* 




SD3AG* 


/\at r ^ 

005572 


-\ "7/-\ 1 

2701 


2709* 










UlKJI 30 






57A7 






$ENV 


000420 


1211* 


1299 


1545 


2801 


2837 


SENVM 


000421 


1212* 


13V 


1616 


2946 




SfOP 


005476 


2637 


2645 


2688* 






IE T ABL 


000420 


1210* 










$E TEND 


000450 


1110 


1239* 









USER SYMBOLS SEO 0076 

1519 1520 1521 1522 1523 1524 1525 1526 

3085 3260 327 1 3303 



3018* 3045* 
2912 



412 


413* 


417 


418* 


423 


424* 


429 


430* 


448* 


451 


452* 


455 


456* 


459 


460* 


463 


475 


476* 


479 


480* 


484 


485* 


488 


489* 


501* 


502 


503* 


510 


511* 


514 


515* 
555 


518 


542 


543* 


546 


54 7# 


549 


550* 


556* 


568* 


575 


576* 


579 


580* 


583 


584# 


589 


607 


608* 


611 


612* 


616 


61 70 


620* 




1848* 


2768 


2785 
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IFATAL 

SGTS1Z 

$HD = 

SH1BTS 

SHI MAX 

SKBB = 

SMADR1 

SMADR2 

JMADR3 

SMADR4 

SMAIL 

IMAMS 1 

SMAMS2 

tMAMS5 

$MAM$4 

SMAXM 

tMBADR 

IMSGAD 

SMSGLG 

SMSGTY 

SMTYP1 

SMTYP2 

SMTYP5 

IMTYP4 

$NWTST= 

$PASS 
SPASTM 
SPRERR 
SRETMM 
SSVPC = 
$SWR = 

SSWREG 
STESTN 

$TN = 

$TPB = 

STPCHR 

STPDEC 

STPNUM 

$TPS = 

STPSTK 

$TSTM 

STYPE 

$UNIT 

SUNITM 

SUSUR 

$7 

%U = 



00CV.02 
007546 
000002 
000276 
000334 
177562 
000432 
000436 
000442 
000446 
000400 
000430 
000434 
000440 
000444 
000336 
000300 
000414 
000416 
000400 
000431 
000435 
000441 
000445 
000001 

000406 
000304 
000300 
007200 
000044 
000000 

000422 
000404 

000014 

1 77566 
006546 
006640 
007012 
1 77564 
005344 
000302 
006504 
000412 
000306 
000424 
000362 
007744 
000200 
007746 



1203* 
1393 

973 
1105# 
1174* 
1156* 
1228* 
1232* 
1235* 
1238* 
1061 
1222* 
1230* 
1253* 
1236* 
1175* 
1106* 
1208* 
1209* 
1007* 
1223* 
1251* 
1254* 
1257* 
1561* 
1954 
1205* 
1108* 
1126* 
5080* 

992* 

975* 
2579 
1215* 
1065 
2110 

965* 
1881* 
1158* 
2957 
2517 
5027 
1157* 
2572 
1107* 
1588 
1059 
1109* 
1214* 
1195* 
5503* 
2475* 

980* 
1099* 
1247* 
2258 



2751* 
3156* 



1515* 
5298 



1106 



1202* 
1524 



1320 
1565 
2007* 
1265 

1129 

5091 
997 
982* 

1501 
1115 
2168 
975 
1952 
2950* 
2946* 
2664 
3052* 
2948 
2658* 

2952* 
1207* 



985* 
1117* 
1256 
2278 



2740* 2748 2851* 



n 6 

USER SYMBOLS 
2834 



SfO 0077 



1110 



1516* 1401 



2805* 



992 
1121* 
1511 
2579 



1201* 1271 



1286 



1650* 

2009 

2692* 


1652 

2085* 

2698 


1691* 
2085 


1695 
2208* 


1755* 
2210 


1755 
2255* 


1826* 

2257 


1828 
2548* 


1866* 

2550 


1868 


1952* 


1255* 


2765 


2781 


2798* 


2882* 














1574 


1656 


1700 


1745 


1855 


1881 


1969 


2019 


2111 


2257 


2278 


1204* 
2176 
1561 
1969* 


1505* 
2201 
1574* 
2007 


1549 
2256 
1650 
2019* 


1575 
2277 
1656* 
2085 


1655 
2578 
1691 
2111* 


1699 

1700* 
2208 


1744 

1755 
2257* 


1852 

1745* 

225S 

I 


1880 

1826 
2278* 


1968 

1855* 

2548 


2018 

1866 
2579* 


5057 
2699 


2977* 




















2955 


2959 


2990 


5028 

















995* 
1125* 
1574 
2500 



995* 
1129* 
1629 
2757 



997* 
1155* 
1658 
2955* 



999* 
1155* 
1701 
5245 



1003* 
1157* 
1745 
5265* 



1011* 
1142* 
1855 
3305* 



1050* 
1144* 
1882 
3308* 



1094 

1147* 

1971 



1095* 

1193 

2020 



1097* 
1196* 

2112 
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. ASS. 007746 000 



ERRORS DETECTED: 0 

DSKW : f ZKIW , l ZKMAF /SOL/CRF /NL : TOC =C ZKMAF . P 11 
RUN-TIME: 1Q 10 .6 SECONDS 
RUN-TIME RATIO: 111/21=5.1 
CORE USED: 11K v21 PAGES) 



N 6 

USER SYMBOLS 



SEO 0078 



